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

Cut over list_2 to new macro

Browse source
This commit is contained in:
Justin Ethier 2018-12-04 14:51:03 -05:00
parent aaab2de154
commit c65977a6a2
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scheme/cyclone/primitives.sld
View file

@ -465,7 +465,7 @@
p p
'(;cons '(;cons
Cyc-fast-list-1 Cyc-fast-list-1
Cyc-fast-list-2 ;Cyc-fast-list-2
Cyc-fast-list-3 Cyc-fast-list-3
Cyc-fast-list-4 Cyc-fast-list-4
;cell ;cell
@ -484,7 +484,7 @@
(cond (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-1) "alloca_list_1")
((eq? p 'Cyc-fast-list-2) "alloca_list_2") ;((eq? p 'Cyc-fast-list-2) "alloca_list_2")
((eq? p 'Cyc-fast-list-3) "alloca_list_3") ((eq? p 'Cyc-fast-list-3) "alloca_list_3")
((eq? p 'Cyc-fast-list-4) "alloca_list_4") ((eq? p 'Cyc-fast-list-4) "alloca_list_4")
;((eq? p 'cell) "alloca_cell") ;((eq? p 'cell) "alloca_cell")
@ -644,7 +644,8 @@
;((eq? p 'cons) "make_pair") ;((eq? p 'cons) "make_pair")
((eq? p 'cons) "set_pair_as_expr") ((eq? p 'cons) "set_pair_as_expr")
((eq? p 'Cyc-fast-list-1) "make_list_1") ((eq? p 'Cyc-fast-list-1) "make_list_1")
((eq? p 'Cyc-fast-list-2) "make_list_2") ((eq? p 'Cyc-fast-list-2) "set_list_2_as_expr")
;((eq? p 'Cyc-fast-list-2) "make_list_2")
((eq? p 'Cyc-fast-list-3) "make_list_3") ((eq? p 'Cyc-fast-list-3) "make_list_3")
((eq? p 'Cyc-fast-list-4) "make_list_4") ((eq? p 'Cyc-fast-list-4) "make_list_4")
;((eq? p 'cell) "make_cell") ;((eq? p 'cell) "make_cell")
@ -757,6 +758,7 @@
(cond (cond
((eq? p 'cons) "pair_type") ((eq? p 'cons) "pair_type")
((eq? p 'cell) "pair_type") ((eq? p 'cell) "pair_type")
((eq? p 'Cyc-fast-list-2) "list_2_type")
((eq? p 'Cyc-fast-plus) "complex_num_type") ((eq? p 'Cyc-fast-plus) "complex_num_type")
((eq? p 'Cyc-fast-sub) "complex_num_type") ((eq? p 'Cyc-fast-sub) "complex_num_type")
((eq? p 'Cyc-fast-mul) "complex_num_type") ((eq? p 'Cyc-fast-mul) "complex_num_type")
@ -871,7 +873,7 @@
Cyc-read-line Cyc-read-line
Cyc-read-char Cyc-peek-char Cyc-read-char Cyc-peek-char
Cyc-fast-list-1 Cyc-fast-list-1
Cyc-fast-list-2 ;Cyc-fast-list-2
Cyc-fast-list-3 Cyc-fast-list-3
Cyc-fast-list-4 Cyc-fast-list-4
;cons ;cons