         ] if*
     ] [
         throw-unexpected-eof
-    ] if ; inline recursive
+    ] if ;
 
 PRIVATE>
 

        ] if
    ] [
        "Unterminated string" throw
    ] if* ; inline recursive

PRIVATE>


<PRIVATE

: (parse-string) ( accum str -- accum m )
    { sbuf slice } declare
    dup [ "\"\\" member? ] find [
        [ cut-slice [ over push-all ] dip rest-slice ] dip
        CHAR: " = [
