From d54a0130c0254ca042331f107d78559e06d2339f Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 14 Dec 2018 14:04:19 -0500 Subject: [PATCH] Issue #284 - Fix how udf:prims are compiled --- scheme/cyclone/primitives.sld | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/scheme/cyclone/primitives.sld b/scheme/cyclone/primitives.sld index 99261a8f..2e6b1dd0 100644 --- a/scheme/cyclone/primitives.sld +++ b/scheme/cyclone/primitives.sld @@ -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)