From 39462dbc94ef31bb08059f896ef5614ec0c8ed65 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 27 Jun 2008 21:12:43 -0500
Subject: [PATCH] Fix stack underflow in lsys

---
 extra/lsys/strings/interpret/interpret.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!