From: Tim Vaughan <tgvaughan@gmail.com>
Date: Mon, 4 Jul 2016 22:07:15 +0000 (+0200)
Subject: Better handling of booleans.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=688fe55448ead0055f80f65e44a97258450c6095;p=scheme.forth.jl.git

Better handling of booleans.
---

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 )