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

Removed dead code

Browse source
This commit is contained in:
Justin Ethier 2015-02-25 13:45:57 -05:00
parent 7b313f0838
commit 503679b499
1 changed files with 8 additions and 71 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

79
runtime.h
View file

@ -1151,76 +1151,6 @@ static void dispatch(int argc, closure func, object cont, object args) {
}
}
/**
* Execute primitive function using given args, and pass result to cont
*/
static void dispatch_primitive(object func, object cont, object args) {
((primitive_type *)func)->fn(cont, args);
}
// TODO: should probably check arg counts and error out if needed
// TODO: use *primitives* to make a list of all missing prims below
/*
} else if (func == primitive_pair_127) { result = Cyc_is_cons(car(args));
} else if (func == primitive_boolean_127) { result = Cyc_is_boolean(car(args));
} else if (func == primitive_char_127) { result = Cyc_is_char(car(args));
} else if (func == primitive_eof_91object_127) { result = Cyc_is_eof_object(car(args));
} else if (func == primitive_number_127) { result = Cyc_is_number(car(args));
} else if (func == primitive_procedure_127) { result = Cyc_is_procedure(car(args));
} else if (func == primitive_string_127) { result = Cyc_is_string(car(args));
} else if (func == primitive_symbol_127) { result = Cyc_is_symbol(car(args));
} else if (func == primitive_Cyc_91cvar_127) { result = Cyc_is_cvar(car(args));
} else if (func == primitive__87) {
__sum(i, car(args), cadr(args));
buf.integer_t = i;
result = &buf;
} else {
printf("Unrecognized primitive function: %s\n", ((symbol_type *)func)->pname);
exit(1);
}
// Cyc-get-cvar
// Cyc-set-cvar!
// -
// *
// /
// =
// >
// <
// >=
// <=
// apply
// %halt
// error
// cell-get
// set-global!
// set-cell!
// cell
// assoc
// assq
// member
// caar cdar cddr
// caaar caadr cadar caddr cdaar cdadr cddar cdddr
// caaaar caaadr caadar caaddr cadaar cadadr
// caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
// char->integer
// integer->char
// string->number
// string-append
// string->list
// list->string
// string->symbol
// symbol->string
// number->string
// current-input-port
// open-input-file
// close-input-port
// read-char
// peek-char
// write
// display))
return_funcall1(cont, result);
}
*/
/*
*
* @param cont - Continuation for the function to call into
@ -1230,9 +1160,16 @@ static void dispatch_primitive(object func, object cont, object args) {
static object apply(object cont, object func, object args){
common_type buf;
if (!is_object_type(func)) {
printf("Call of non-procedure: ");
Cyc_display(func);
exit(1);
}
switch(type_of(func)) {
case primitive_tag:
dispatch_primitive(func, cont, args);
// TODO: should probably check arg counts and error out if needed
((primitive_type *)func)->fn(cont, args);
break;
case closure0_tag:
case closure1_tag: