From a46bc53570818d0ab1a7891c9ac52c1d9a3af2e2 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Thu, 28 May 2015 13:52:33 -0700 Subject: 1503 --- repl.mu | 2 ++ 1 file changed, 2 insertions(+) diff --git a/repl.mu b/repl.mu index 35bc6f93..54c014fb 100644 --- a/repl.mu +++ b/repl.mu @@ -172,7 +172,9 @@ recipe slurp-string [ break-unless string?:boolean print-character x:address:screen, c:character, 6:literal/cyan result:address:buffer <- buffer-append result:address:buffer, c:character + # make a recursive call to handle nested strings result:address:buffer, tmp:number, k:address:keyboard, x:address:screen <- slurp-string result:address:buffer, k:address:keyboard, x:address:screen + # but if we backspace over a completed string handle it in the caller characters-slurped:number <- add characters-slurped:number, tmp:number, 1:literal # for the leading '[' loop +next-character:label } -- cgit 1.4.1-2-gfad0