The Lambda Lab
/
projects
/
scheme.forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added NOT and fixed PROCEDURE?
[scheme.forth.jl.git]
/
src
/
scheme-primitives.4th
diff --git
a/src/scheme-primitives.4th
b/src/scheme-primitives.4th
index
9203f71
..
934c80e
100644
(file)
--- a/
src/scheme-primitives.4th
+++ b/
src/scheme-primitives.4th
@@
-29,7
+29,13
@@
; 1 make-fa-primitive pair?
:noname ( args -- boolobj )
; 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?
\ }}}
; 1 make-fa-primitive procedure?
\ }}}