L-system: reformat for brevity

diff --git a/extra/L-system/L-system.factor b/extra/L-system/L-system.factor
index c37b7a0feff4581824e21504ede292876e098f1d..dfae72c629c998e9e7af7c6da5461623a7322108 100644 (file)
--- a/extra/L-system/L-system.factor
+++ b/extra/L-system/L-system.factor
@@ -303,9 +303,8 @@ TUPLE: <L-system> < gadget
 :: iterate-string-loop ( STRING RULES ACCUM -- )
   STRING empty? not
     [
-      STRING read-instruction
-    
-      [let :> ( NEXT REST )
+      [let
+        STRING read-instruction :> ( NEXT REST )
 
         NEXT 1 head RULES at  NEXT  or  ACCUM push-all
 
@@ -329,12 +328,9 @@ TUPLE: <L-system> < gadget
 
   STRING empty? not
     [
-      STRING read-instruction
-
-      [let :> ( NEXT REST )
-
+      [let
+          STRING read-instruction :> ( NEXT REST )
           NEXT 1 head COMMANDS at :> COMMAND
-
           COMMAND
             [
               NEXT length 1 =