mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-08 21:47:33 +02:00
Fix unsafe car/cdr
This commit is contained in:
parent
5f42a06601
commit
c30bf50b5d
2 changed files with 6 additions and 2 deletions
|
@ -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);
|
||||||
|
|
|
@ -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")
|
||||||
|
|
Loading…
Add table
Reference in a new issue