+\ ---- Pre-defined symbols ----
+
+: (create-symbol) ( addr n -- symbol-obj )
+ dup 0= if
+ 2drop nil
+ else
+ 2dup drop @ character-type 2swap
+ swap 1+ swap 1-
+ recurse
+
+ cons
+ then
+;
+
+: create-symbol ( -- )
+ bl word
+ count
+ (create-symbol)
+ drop symbol-type
+
+ symbol-table fetchobj
+ cons
+ symbol-table setobj
+;
+
+create-symbol quote
+