Permalink
Browse files

Implement s and z

  • Loading branch information...
palfrey committed Jul 5, 2012
1 parent 88b27e6 commit ed6b65bea4336000d1a1daaa51032ca7f60efb11
Showing with 8 additions and 0 deletions.
  1. +8 −0 src/clostridium/core.clj
View
@@ -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)

0 comments on commit ed6b65b

Please sign in to comment.