From 60801ed68d5b2c6630c83883de150ccce98767f9 Mon Sep 17 00:00:00 2001
From: Chouser <chouser@n01se.net>
Date: Sun, 15 Feb 2015 13:33:44 -0500
Subject: forth: Add step 4, but not varargs

---
 forth/reader.fs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'forth/reader.fs')

diff --git a/forth/reader.fs b/forth/reader.fs
index f65db2c..2ed3446 100644
--- a/forth/reader.fs
+++ b/forth/reader.fs
@@ -141,8 +141,13 @@ defer read-form ( str-addr str-len -- str-addr str-len mal-obj )
             obj swap conj
             s" with-meta" MalSymbol. swap conj
         else
-            read-symbol-str MalSymbol.
-        endif endif endif endif endif endif endif endif endif endif endif endif
+            read-symbol-str
+            2dup s" true" str= if 2drop mal-true
+            else 2dup s" false" str= if 2drop mal-false
+            else 2dup s" nil" str= if 2drop mal-nil
+            else
+              MalSymbol.
+        endif endif endif endif endif endif endif endif endif endif endif endif endif endif endif
         dup skip-elem =
     while drop repeat ;
 ' read-form2 is read-form
-- 
cgit v1.2.3