X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme.4th;h=8c84378d879ca9e638f193f68629c29e81c0f631;hb=385421e5768281c250e22ac5d7ab8da026dea86c;hp=915edbad79021f817a5d24dffdd8fa6fe89136c3;hpb=95c071f1ce6af0571791b2e8b885780182982dff;p=scheme.forth.jl.git

diff --git a/scheme.4th b/scheme.4th
index 915edba..8c84378 100644
--- a/scheme.4th
+++ b/scheme.4th
@@ -373,6 +373,9 @@ defer read
     boolean-type istype? if printbool exit then
     character-type istype? if printchar exit then
     nil-type istype? if printnil exit then
+
+    bold fg red ." Error printing expression - unrecognized type. Aborting" reset-term cr
+    abort
 ;
 
 \ ---- REPL ----