From b7be5d1750a2f852c5dc37cfba53ee98448d9f1f Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <wayo.cavazos@gmail.com>
Date: Thu, 11 Oct 2007 14:12:58 -0500
Subject: [PATCH] lsys.ui: Fix pit - 'f' cannot be called anymore

---
 extra/lsys/ui/ui.factor | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/extra/lsys/ui/ui.factor b/extra/lsys/ui/ui.factor
index 2602adfcee..45372aec6c 100644
--- a/extra/lsys/ui/ui.factor
+++ b/extra/lsys/ui/ui.factor
@@ -14,8 +14,12 @@ USING: kernel namespaces threads math math.vectors quotations sequences
        ui.gadgets.theme
        vars rewrite-closures
        self pos ori turtle opengl.camera
-       lsys.tortoise lsys.tortoise.graphics lsys.strings
-;
+       lsys.tortoise lsys.tortoise.graphics
+       lsys.strings.rewrite lsys.strings.interpret ;
+
+       ! lsys.strings
+       ! lsys.strings.rewrite
+       ! lsys.strings.interpret
 
 IN: lsys.ui
 
@@ -147,7 +151,7 @@ make-pile 1 over set-pack-fill "L-system control" open-window ;
 
 : lsys-viewer ( -- )
 
-f <slate> >slate
+[ ] <slate> >slate
 { 400 400 } clone slate> set-slate-dim
 
 {