X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=src%2Fscheme-primitives.4th;h=934c80ed12946ddcee3b9636d0017fff22cc0b5b;hp=9203f71c721c26b0c7d887747a395dfbd1523c2b;hb=f675338306652fc8accf3c5ba154b915d0d24cdc;hpb=06e8259c96d3282d8904006aa9137ed563d8fe86

diff --git a/src/scheme-primitives.4th b/src/scheme-primitives.4th
index 9203f71..934c80e 100644
--- a/src/scheme-primitives.4th
+++ b/src/scheme-primitives.4th
@@ -29,7 +29,13 @@
 ; 1 make-fa-primitive pair?
 
 :noname ( args -- boolobj )
-    primitive-proc-type istype? -rot 2drop boolean-type
+    primitive-proc-type istype? if
+        true
+    else
+        compound-proc-type istype?
+    then
+        
+    -rot 2drop boolean-type
 ; 1 make-fa-primitive procedure?
 
 \ }}}