674 - eliminate the other label

Jumps forward are harder than jumps back. You can't create a
continuation until you get to it. And we don't have a way to return
things from a continuation yet. That's a flaw. Maybe we need a
'reply-from' operator.

But for now, this small bit of code we can just inline and duplicate.

1 files changed, 8 insertions, 4 deletions

diff --git a/color-repl.mu b/color-repl.mu
index caf3f8eb..fa2b3df1 100644
--- a/color-repl.mu
+++ b/color-repl.mu
@@ -112,7 +112,8 @@
         (break-if end-sexp?:boolean)
         (continue-from next-key:continuation)
       }
-      (jump end:offset)
+      (s:string-address <- get result:buffer-address/deref data:offset)
+      (reply s:string-address)
     }
 ;?     (print-primitive-to-host 7:literal) ;? 1
     ; if it's not whitespace, set not-empty? and continue
@@ -169,8 +170,12 @@
       ($print-key-to-host c:character)
       (at-top-level?:boolean <- lesser-or-equal open-parens:integer 0:literal)
       (end-sexp?:boolean <- and at-top-level?:boolean not-empty?:boolean)
-      (jump-if end-sexp?:boolean end:offset)
-      (continue-from next-key:continuation)
+      { begin
+        (break-if end-sexp?:boolean)
+        (continue-from next-key:continuation)
+      }
+      (s:string-address <- get result:buffer-address/deref data:offset)
+      (reply s:string-address)
     }
 ;?     (print-primitive-to-host 12:literal) ;? 1
     ; if all else fails, print the character without color
@@ -181,7 +186,6 @@
     ;   todo: don't return if there's no non-whitespace in result
     (continue-from next-key:continuation)
   }
-  end
   (s:string-address <- get result:buffer-address/deref data:offset)
   (reply s:string-address)
 ])