X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme.4th;h=0bbfbf5435b5d13793c7f800b1fab2bc54951dc7;hb=688fe55448ead0055f80f65e44a97258450c6095;hp=bf57ac782080ff75c486bbe3fb23ccc80fb0f251;hpb=c86116e9a58b939ec2e9a9a9528dda8836479cae;p=scheme.forth.jl.git

diff --git a/scheme.4th b/scheme.4th
index bf57ac7..0bbfbf5 100644
--- a/scheme.4th
+++ b/scheme.4th
@@ -105,7 +105,7 @@ parse-idx-stack parse-idx-sp !
         inc-parse-idx
     repeat
 
-    delim? charavailable? false = or if
+    delim? if
         pop-parse-idx
         true
     else
@@ -124,8 +124,14 @@ parse-idx-stack parse-idx-sp !
     nextchar [char] f <>
     and if pop-parse-idx false exit then
 
-    pop-parse-idx
-    true
+    inc-parse-idx
+    delim? if
+        pop-parse-idx
+        true
+    else
+        pop-parse-idx
+        false
+    then
 ;
 
 : str-equiv? ( str -- bool )