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

View File

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