Issue #284 - Fix how udf:prims are compiled

This commit is contained in:
Justin Ethier 2018-12-14 14:04:19 -05:00
parent dc34eef03b
commit d54a0130c0

View file

@ -825,7 +825,7 @@
((eq? p 'list->vector) "object")
((eq? p 'Cyc-installation-dir) "object")
((eq? p 'Cyc-compilation-environment) "object")
((member p *udf-prims*) "object")
;((member p *udf-prims*) "object")
(else #f)))
;; Determine if primitive creates a C variable
@ -879,7 +879,8 @@
;cons
;cell
))
(member exp *udf-prims*))))
;(member exp *udf-prims*)
)))
;; Pass continuation as the function's first parameter?
(define (prim:cont? exp)