brainfuck: cleanup.

diff --git a/extra/brainfuck/brainfuck.factor b/extra/brainfuck/brainfuck.factor
index 859bcc28629faeaced1b637c6979c468674c4b3b..5cdc13b08f5ed6738c61b48ea0d3a98dde628568 100644 (file)
--- a/extra/brainfuck/brainfuck.factor
+++ b/extra/brainfuck/brainfuck.factor
@@ -35,10 +35,10 @@ TUPLE: brainfuck pointer memory ;
     read1 set-memory ;
 
 : (>) ( brainfuck n -- brainfuck )
-    [ dup pointer>> ] dip + >>pointer ;
+    [ + ] curry change-pointer ;
 
 : (<) ( brainfuck n -- brainfuck )
-    [ dup pointer>> ] dip - >>pointer ;
+    [ - ] curry change-pointer ;
 
 : (#) ( brainfuck -- brainfuck )
     dup