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

Fix unsafe car/cdr

Browse source
This commit is contained in:
Justin Ethier 2019-11-26 16:11:57 -05:00
parent 5f42a06601
commit c30bf50b5d
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
include/cyclone/runtime.h
View file

@ -826,6 +826,10 @@ static inline object Cyc_cdr(void *data, object lis)
Cyc_check_pair(data, lis); Cyc_check_pair(data, lis);
return cdr(lis); return cdr(lis);
} }
// Unsafe car/cdr
#define Cyc_car_unsafe(d, lis) car(lis)
#define Cyc_cdr_unsafe(d, lis) cdr(lis)
list malloc_make_pair(object, object); list malloc_make_pair(object, object);
object Cyc_set_cell(void *, object l, object val); object Cyc_set_cell(void *, object l, object val);
object Cyc_set_car(void *, object l, object val); object Cyc_set_car(void *, object l, object val);

4
scheme/cyclone/primitives.sld
View file

@ -575,11 +575,11 @@
((eq? p 'Cyc-unsafe-cdr) "cdr") ((eq? p 'Cyc-unsafe-cdr) "cdr")
((eq? p 'car) ((eq? p 'car)
(if emit-unsafe (if emit-unsafe
"car" "Cyc_car_unsafe"
"Cyc_car")) "Cyc_car"))
((eq? p 'cdr) ((eq? p 'cdr)
(if emit-unsafe (if emit-unsafe
"cdr" "Cyc_cdr_unsafe"
"Cyc_cdr")) "Cyc_cdr"))
((eq? p 'caar) "Cyc_caar") ((eq? p 'caar) "Cyc_caar")
((eq? p 'cadr) "Cyc_cadr") ((eq? p 'cadr) "Cyc_cadr")