X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme.4th;h=269eb5205833ce048a8ec5c56d12914b75be6615;hb=0ee4f0c047934f6be3877babb5cf99c8cce71e8d;hp=63a342019a1ac7ed2857029c6ac13058fa3f56ec;hpb=f95f47dbec94087af4452f20e9eca72fb7f299c8;p=scheme.forth.jl.git

diff --git a/scheme.4th b/scheme.4th
index 63a3420..269eb52 100644
--- a/scheme.4th
+++ b/scheme.4th
@@ -9,6 +9,7 @@ include defer-is.4th
 2 constant character-type
 3 constant nil-type
 4 constant pair-type
+5 constant symbol-type
 : istype? ( obj -- obj b )
     over = ;