X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme.4th;h=3ea9d66e0598c0513ecc2595c0c202b8e3085a0f;hb=c1614af3cb919d99081fb11d7ba2c1a83cb2d408;hp=3e7b827ad54adfe6a7a507f53bbadecb508ad821;hpb=52243a65c93217c43cad6146bf38708fab52c7fd;p=scheme.forth.jl.git

diff --git a/scheme.4th b/scheme.4th
index 3e7b827..3ea9d66 100644
--- 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
 ;