From: Tim Vaughan <tgvaughan@gmail.com>
Date: Tue, 12 Jul 2016 11:34:25 +0000 (+1200)
Subject: Implemented symbols.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=d97ced45e703ef8531a7103fa2b982ad32bd035a;p=scheme.forth.jl.git

Implemented symbols.
---

diff --git a/scheme.4th b/scheme.4th
index d3555a4..5ea44ee 100644
--- a/scheme.4th
+++ b/scheme.4th
@@ -353,14 +353,14 @@ parse-idx-stack parse-idx-sp !
     if
         nil? -rot 2drop
         if
-            true exit
+            2drop 2drop true exit
         else
-            false exit
+            2drop 2drop false exit
         then
     else
         nil? -rot 2drop
         if
-            false exit
+            2drop 2drop false exit
         then
     then