diff options
author | Teddy <ted.sybil@gmail.com> | 2013-08-05 21:11:53 +0800 |
---|---|---|
committer | Teddy <ted.sybil@gmail.com> | 2013-08-05 21:11:53 +0800 |
commit | 45dec735ec131c18d70ad202ed1446982b99ed9f (patch) | |
tree | 6326d2889045ec2b4d13ae0a612e24c771205029 /eval.cpp | |
parent | a6574b0025b68eb28a8c7d679ca6783132ad013d (diff) |
added more built-in procedures
Diffstat (limited to 'eval.cpp')
-rw-r--r-- | eval.cpp | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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()); |