From 05f893bbe7e8a839c26cc951fafb166c25d0a6ee Mon Sep 17 00:00:00 2001
From: Teddy <ted.sybil@gmail.com>
Date: Sun, 11 Aug 2013 09:58:22 +0800
Subject: `apply` and `or` support

---
 eval.cpp | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'eval.cpp')

diff --git a/eval.cpp b/eval.cpp
index 6e56eb4..229d321 100644
--- a/eval.cpp
+++ b/eval.cpp
@@ -22,6 +22,8 @@ void Evaluator::add_builtin_routines() {
     ADD_ENTRY("quote", new SpecialOptQuote());
     ADD_ENTRY("eval", new SpecialOptEval());
     ADD_ENTRY("and", new SpecialOptAnd());
+    ADD_ENTRY("or", new SpecialOptOr());
+    ADD_ENTRY("apply", new SpecialOptApply());
 
     ADD_BUILTIN_PROC("+", num_add);
     ADD_BUILTIN_PROC("-", num_sub);
@@ -73,6 +75,11 @@ void Evaluator::add_builtin_routines() {
     ADD_BUILTIN_PROC("display", display);
     ADD_BUILTIN_PROC("string?", is_string);
     ADD_BUILTIN_PROC("symbol?", is_symbol);
+    ADD_BUILTIN_PROC("string<?", string_lt);
+    ADD_BUILTIN_PROC("string<=?", string_le);
+    ADD_BUILTIN_PROC("string>?", string_gt);
+    ADD_BUILTIN_PROC("string<=?", string_ge);
+    ADD_BUILTIN_PROC("string=?", string_eq);
 }
 
 Evaluator::Evaluator() {
-- 
cgit v1.2.3