From 4ab1885fe4257b8a0d7de8c7eba250931a3f63c2 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohaitch@gmail.com>
Date: Tue, 28 Oct 2014 13:30:29 -0700
Subject: [PATCH] Fixed prompt leading /

---
 main/app/shell/core.hook | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/main/app/shell/core.hook b/main/app/shell/core.hook
index e3f2b3287..f63503acf 100644
--- a/main/app/shell/core.hook
+++ b/main/app/shell/core.hook
@@ -352,8 +352,8 @@
   ?^  act
     (rap 3 (~(got by cub.hid) u.act) '(' u.act ') ' ~)
   ?.  &(?=([@ @ @ *] pax) =('0' &3.pax))
-    (spat pax)
-  (rap 3 '/' &1.pax '/' &2.pax '=' ?~(|3.pax ~ [(spat |3.pax)]~))
+    (rsh 3 1 (spat pax))
+  (rap 3 &1.pax '/' &2.pax '=' ?~(|3.pax ~ [(spat |3.pax)]~))
 ++  exec
   |=  gen=twig
   %-  slap  :_  gen