From 42855b4c44534e3de544d6cddb7748717dc723b0 Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Tue, 4 Aug 2020 09:12:02 +0200
Subject: [PATCH] L-system: reformat for brevity

---
 extra/L-system/L-system.factor | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/extra/L-system/L-system.factor b/extra/L-system/L-system.factor
index c37b7a0fef..dfae72c629 100644
--- 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 =