diff --git a/extra/lsys/strings/interpret/interpret.factor b/extra/lsys/strings/interpret/interpret.factor index 1d992cc1e2..8d27b29d22 100644 --- a/extra/lsys/strings/interpret/interpret.factor +++ b/extra/lsys/strings/interpret/interpret.factor @@ -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 ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!