From f5b7c75184d82cef521076917d1565cbc7fa58e7 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 30 Nov 2018 17:26:45 -0500 Subject: [PATCH] Temporarily revert previous changes for cons --- scheme/cyclone/primitives.sld | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/scheme/cyclone/primitives.sld b/scheme/cyclone/primitives.sld index fe241d51..416918a8 100644 --- a/scheme/cyclone/primitives.sld +++ b/scheme/cyclone/primitives.sld @@ -481,7 +481,7 @@ ;; created via alloca or such, and cannot be declared as stack vars. ;; This is to support C loops in place of recursion. (cond - ;((eq? p 'cons) "alloca_pair") + ((eq? p 'cons) "alloca_pair") ((eq? p 'Cyc-fast-list-1) "alloca_list_1") ((eq? p 'Cyc-fast-list-2) "alloca_list_2") ((eq? p 'Cyc-fast-list-3) "alloca_list_3") @@ -640,7 +640,8 @@ ((eq? p 'string?) "Cyc_is_string") ((eq? p 'eof-object?) "Cyc_is_eof_object") ((eq? p 'symbol?) "Cyc_is_symbol") - ((eq? p 'cons) "set_pair_as_expr") + ((eq? p 'cons) "make_pair") + ;((eq? p 'cons) "set_pair_as_expr") ((eq? p 'Cyc-fast-list-1) "make_list_1") ((eq? p 'Cyc-fast-list-2) "make_list_2") ((eq? p 'Cyc-fast-list-3) "make_list_3") @@ -752,7 +753,7 @@ ;; Determine if primitive receives a pointer to a local C variable (define (prim/c-var-pointer p) (cond - ((eq? p 'cons) "pair_type") + ;((eq? p 'cons) "pair_type") ((eq? p 'Cyc-fast-plus) "complex_num_type") ((eq? p 'Cyc-fast-sub) "complex_num_type") ((eq? p 'Cyc-fast-mul) "complex_num_type") @@ -870,6 +871,7 @@ Cyc-fast-list-2 Cyc-fast-list-3 Cyc-fast-list-4 + cons cell)) (member exp *udf-prims*))))