aboutsummaryrefslogtreecommitdiff
path: root/eval.cpp
diff options
context:
space:
mode:
authorTeddy <ted.sybil@gmail.com>2013-08-08 00:11:39 +0800
committerTeddy <ted.sybil@gmail.com>2013-08-08 00:11:39 +0800
commit56a85b5111751f5947579b5ee5cc92bdebb799c4 (patch)
treea19eece360f73ad75a67a9b011061d3691f40115 /eval.cpp
parent7ffab5bc462dafe0c48c3e1be0ae2112adf7a159 (diff)
added more list-specific procs
Diffstat (limited to 'eval.cpp')
-rw-r--r--eval.cpp9
1 files changed, 5 insertions, 4 deletions
diff --git a/eval.cpp b/eval.cpp
index 85b9482..244ac9c 100644
--- a/eval.cpp
+++ b/eval.cpp
@@ -32,8 +32,8 @@ void Evaluator::add_builtin_routines() {
ADD_BUILTIN_PROC(">", num_gt);
ADD_BUILTIN_PROC("=", num_eq);
- ADD_BUILTIN_PROC("exact?", num_exact);
- ADD_BUILTIN_PROC("inexact?", num_inexact);
+ ADD_BUILTIN_PROC("exact?", num_is_exact);
+ ADD_BUILTIN_PROC("inexact?", num_is_inexact);
ADD_BUILTIN_PROC("not", bool_not);
ADD_BUILTIN_PROC("boolean?", is_boolean);
@@ -46,10 +46,11 @@ void Evaluator::add_builtin_routines() {
ADD_BUILTIN_PROC("set-cdr!", pair_set_cdr);
ADD_BUILTIN_PROC("null?", is_null);
ADD_BUILTIN_PROC("list?", is_list);
-
- ADD_BUILTIN_PROC("display", display);
ADD_BUILTIN_PROC("list", make_list);
+ ADD_BUILTIN_PROC("length", length);
+ ADD_BUILTIN_PROC("append", append);
+ ADD_BUILTIN_PROC("display", display);
}
Evaluator::Evaluator() {