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

Temporarily revert previous changes for cons

Browse source
This commit is contained in:
Justin Ethier 2018-11-30 17:26:45 -05:00
parent 8ccd2b3525
commit f5b7c75184
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/cyclone/primitives.sld
View file

@ -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*))))