Implement s and z

palfrey · Jul 5, 2012 · ed6b65b · ed6b65b
1 parent 88b27e6
commit ed6b65b
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/clostridium/core.clj b/src/clostridium/core.clj
@@ -379,6 +379,14 @@
           )
       \n (fn [b] (setNewToss b []))
       \r reflect
+      \s (fn [nb]
+          (let [
+                {:keys [b item]} (removeFromStack (updatePC nb))
+                ]
+            (assoc b :grid (setVal (:grid b) (:pc b) (char item)))
+          )
+        )
+      \z (fn [b] b)
       \j (fn [nb]
            (let [
                  {:keys [b item]} (removeFromStack nb)