Permalink
Browse files

Fix ' and w

  • Loading branch information...
1 parent a17c117 commit 4b27e84d5e559f289bd882e7158e997905b48d08 @palfrey committed Jul 2, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/clostridium/core.clj
View
6 src/clostridium/core.clj
@@ -308,7 +308,7 @@
\f (fn [b] (addToStack b 15))
\[ rotateCW
\] rotateCCW
- \' (fn [nb] (let [b (updatePC nb false)]
+ \' (fn [nb] (let [b (updatePC nb true)]
(updatePC (addToStack b (int (current b))))
))
\w (fn [nb]
@@ -317,9 +317,9 @@
[one two] items
]
(if (> one two)
- (rotateCCW b)
+ (rotateCW b)
(if (< one two)
- (rotateCW b)
+ (rotateCCW b)
b
)
)

0 comments on commit 4b27e84

Please sign in to comment.