Unbroke 's' support

palfrey · Aug 4, 2012 · 7c26a59 · 7c26a59
1 parent 3109b01
commit 7c26a59
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/clostridium/core.clj b/src/clostridium/core.clj
@@ -423,9 +423,9 @@
       \r reflect
       \s (fn [nb]
           (let [
-                {:keys [b item]} (removeFromStack (updatePC nb))
+                {:keys [b item]} (removeFromStack (updatePC nb true))
                 ]
-            (assoc b :grid (setVal (:grid b) (:pc b) (char item)))
+            (assoc b :grid (setVal (:grid b) (reverse (:pc b)) (char item)))
           )
         )
       \z (fn [b] b)