Marked compound procedure type as pairlike.

diff --git a/scheme.4th b/scheme.4th
index 3e7b827..3ea9d66 100644 (file)
--- a/scheme.4th
+++ b/scheme.4th
@@ -143,6 +143,7 @@ false gc-enabled !
     pair-type istype? if true exit then
     string-type istype? if true exit then
     symbol-type istype? if true exit then
+    compound-proc-type istype? if true exit then
 
     false
 ;