tools.test: Make the flag public. Finish porting tester changes to fuzzer.

[factor.git] / unmaintained / L-system / L-system.factor

diff --git a/unmaintained/L-system/L-system.factor b/unmaintained/L-system/L-system.factor
index 0dbf94b1c68314e0f00c02241ba5225e04871627..cc91042d213192a934a78c10e94ac8e073d10eed 100644 (file)
--- a/unmaintained/L-system/L-system.factor
+++ b/unmaintained/L-system/L-system.factor
@@ -263,7 +263,7 @@ TUPLE: <L-system> < gadget
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-:: iterate-system ( GADGET -- ) GADGET pedestal>> 0.5 + GADGET (>>pedestal) ;
+:: iterate-system ( GADGET -- ) GADGET pedestal>> 0.5 + GADGET pedestal<< ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -357,7 +357,7 @@ TUPLE: <L-system> < gadget
   L-SYSTEM string>> L-SYSTEM axiom>> or
   L-SYSTEM rules>>
   iterate-string
-  L-SYSTEM (>>string) ;
+  L-SYSTEM string<< ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -422,7 +422,7 @@ M:: <L-system> graft* ( L-SYSTEM -- )
 
   L-SYSTEM find-gl-context
 
-  1 glGenLists L-SYSTEM (>>display-list) ;
+  1 glGenLists L-SYSTEM display-list<< ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -508,4 +508,4 @@ ARTICLE: "L-system" "L-system"
   { "q" "Roll left" }
   { "w" "Roll right" } } ;
 
-ABOUT: "L-system"
\ No newline at end of file
+ABOUT: "L-system"