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

brainfuck: cleanup.

John Benediktsson 2011-10-14 13:53:55 -07:00
parent a015ed5b4b
commit f638f3db3a
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