From 385421e5768281c250e22ac5d7ab8da026dea86c Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Wed, 6 Jul 2016 23:44:10 +0200
Subject: [PATCH] Finished defer/is.

---
 defer-is.4th | 7 +++++++
 scheme.4th   | 3 +++
 2 files changed, 10 insertions(+)

diff --git a/defer-is.4th b/defer-is.4th
index bf3225a..07f1342 100644
--- a/defer-is.4th
+++ b/defer-is.4th
@@ -26,3 +26,10 @@ hide abort-defer
         ['] lit , , ['] defer! ,
     then
 ;
+
+: :noname
+    here current @ 1+ @ ,
+    current @ 1+ !
+    0 ,
+    here docol ,
+    [compile] ] ;
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 ----
-- 
2.20.1