aboutsummaryrefslogtreecommitdiff
path: root/eval.cpp
diff options
context:
space:
mode:
authorTeddy <ted.sybil@gmail.com>2013-08-05 21:11:53 +0800
committerTeddy <ted.sybil@gmail.com>2013-08-05 21:11:53 +0800
commit45dec735ec131c18d70ad202ed1446982b99ed9f (patch)
tree6326d2889045ec2b4d13ae0a612e24c771205029 /eval.cpp
parenta6574b0025b68eb28a8c7d679ca6783132ad013d (diff)
added more built-in procedures
Diffstat (limited to 'eval.cpp')
-rw-r--r--eval.cpp7
1 files changed, 4 insertions, 3 deletions
diff --git a/eval.cpp b/eval.cpp
index d6aee3b..47cdc66 100644
--- a/eval.cpp
+++ b/eval.cpp
@@ -14,18 +14,19 @@ void Evaluator::add_builtin_routines() {
envt->add_binding(new SymObj(name), rout)
ADD_ENTRY("+", new BuiltinProcObj(builtin_plus, "+"));
-/* ADD_ENTRY("-", new BuiltinProcObj(builtin_minus, "-"));
- ADD_ENTRY("*", new BuiltinProcObj(builtin_times, "*"));
+ ADD_ENTRY("-", new BuiltinProcObj(builtin_minus, "-"));
+ ADD_ENTRY("*", new BuiltinProcObj(builtin_multi, "*"));
ADD_ENTRY("/", new BuiltinProcObj(builtin_div, "/"));
ADD_ENTRY(">", new BuiltinProcObj(builtin_gt, ">"));
ADD_ENTRY("<", new BuiltinProcObj(builtin_lt, "<"));
ADD_ENTRY("=", new BuiltinProcObj(builtin_arithmetic_eq, "="));
- */
ADD_ENTRY("display", new BuiltinProcObj(builtin_display, "display"));
ADD_ENTRY("cons", new BuiltinProcObj(builtin_cons, "cons"));
ADD_ENTRY("car", new BuiltinProcObj(builtin_car, "car"));
ADD_ENTRY("cdr", new BuiltinProcObj(builtin_cdr, "cdr"));
ADD_ENTRY("list", new BuiltinProcObj(builtin_list, "list"));
+ ADD_ENTRY("exact?", new BuiltinProcObj(builtin_exact, "exact?"));
+ ADD_ENTRY("inexact?", new BuiltinProcObj(builtin_inexact, "inexact?"));
ADD_ENTRY("if", new SpecialOptIf());
ADD_ENTRY("lambda", new SpecialOptLambda());
ADD_ENTRY("define", new SpecialOptDefine());