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

Added type checking

Browse source
This commit is contained in:
Justin Ethier 2015-07-23 22:20:11 -04:00
parent 4910c01d28
commit 5a9a8d322e
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
runtime.c
View file

@ -746,12 +746,14 @@ object Cyc_eq(object x, object y) {
}
object Cyc_set_car(object l, object val) {
if (Cyc_is_cons(l) == boolean_f) Cyc_invalid_type_error(cons_tag, l);
car(l) = val;
add_mutation(l, val);
return l;
}
object Cyc_set_cdr(object l, object val) {
if (Cyc_is_cons(l) == boolean_f) Cyc_invalid_type_error(cons_tag, l);
cdr(l) = val;
add_mutation(l, val);
return l;
@ -788,7 +790,7 @@ integer_type Cyc_vector_length(object v) {
integer_type Cyc_length(object l){
make_int(len, 0);
while(!nullp(l)){
if (((list)l)->tag != cons_tag){
if (is_value_type(l) || ((list)l)->tag != cons_tag){
Cyc_rt_raise_msg("length - invalid parameter, expected list\n");
}
l = cdr(l);
@ -1398,7 +1400,6 @@ void _equal_127(object cont, object args){
return_funcall1(cont, equalp(car(args), cadr(args))); }
void _length(object cont, object args){
Cyc_check_num_args("length", 1, args);
if (!nullp(car(args))) Cyc_check_cons(car(args));
{ integer_type i = Cyc_length(car(args));
return_funcall1(cont, &i); }}
void _vector_91length(object cont, object args){