+ bold fg red ." Error parsing string starting at character '"
+ nextchar emit
+ ." '. Aborting." reset-term cr
+ abort
+;
+
+\ ---- Eval ----
+
+: self-evaluating? ( obj -- obj bool )
+ number-type istype? if true exit then
+ boolean-type istype? if true exit then
+ false ;
+
+: eval
+ self-evaluating? if