steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

brainfuck: cleanup.

db4
John Benediktsson 2011-10-14 13:53:55 -07:00
parent 2b21f01918
commit 4fb66c0f05
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/brainfuck/brainfuck.factor
View File

@ -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