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

Fix stack underflow in lsys

db4
Slava Pestov 2008-06-27 21:12:43 -05:00
parent be9d6326dd
commit 39462dbc94
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/lsys/strings/interpret/interpret.factor
View File

@ -22,7 +22,7 @@ VAR: command-table
: exec-command* ( string -- ) : exec-command* ( string -- )
[ parameter ] [ command ] bi [ parameter ] [ command ] bi
command-table> at dup command-table> at dup
[ 1 tail* call ] [ 3drop ] if ; [ 1 tail* call ] [ 2drop ] if ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!