diff options
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/std_lib.c | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/modules/std_lib.c b/modules/std_lib.c index 182aac0..f87f2db 100644 --- a/modules/std_lib.c +++ b/modules/std_lib.c @@ -158,10 +158,15 @@ value *procedure_lt(env *e, value *args) { return make_int(1); } +value *procedure_list(env *e, value *args) { + return eval(e, args); +} + + module_export *module_init() { //exports[i].name = "xxx" //exports[i].v = make_procedure(xxx); - static module_export exports[12]; + static module_export exports[13]; exports[0].name = "cons"; exports[0].v = make_procedure(procedure_cons); @@ -185,9 +190,11 @@ module_export *module_init() { exports[9].v = make_procedure(procedure_div); exports[10].name = "<"; exports[10].v = make_procedure(procedure_lt); + exports[11].name = "list"; + exports[11].v = make_procedure(procedure_list); - exports[11].name = NULL; - exports[11].v = NULL; + exports[12].name = NULL; + exports[12].v = NULL; return exports; } |