Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-11 23:07:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #284 - Fix how udf:prims are compiled

Browse source
This commit is contained in:
Justin Ethier 2018-12-14 14:04:19 -05:00
parent dc34eef03b
commit d54a0130c0
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/primitives.sld
View file

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