Add a lot of primitive types

3 files changed, 13 insertions, 14 deletions

diff --git a/examples/booleans.bdl b/examples/booleans.bdl
index e38fb1f..0598450 100644
--- a/examples/booleans.bdl
+++ b/examples/booleans.bdl
@@ -44,7 +44,7 @@
 (print "(if (or false false) (+ 1 2 3) (+ 7 8 9)) -> ")     (if (or false false) (+ 1 2 3) (+ 7 8 9))
 (print "(if (or (+ 1 2 3) false) (+ 1 2 3) (+ 7 8 9)) -> ") (if (or (+ 1 2 3) false) (+ 1 2 3) (+ 7 8 9))
 (print "(if true 7) -> ")                                   (if true 7)
-(print "(if false 7) -> ")                                  (if false 7)
+(print "(if false 7) -> ")                                  (if false 7) (newline)
 
 ;; Cond.
 (print "(cond ((and true true true) 1) ((or true true false) 2) (else 3)) -> ")
@@ -61,7 +61,7 @@
       (else 3))
 (print "(cond ((and true true true) 1) ((or true true false) 2)) -> ")
 (cond ((and true true false) 1)
-      ((or false false false) 2))
+      ((or false false false) 2)) (newline)
 (print "(cond ((and true true true) (+ 1 2 3)) ((or true true false) 2) (else 3)) -> ")
 (cond ((and true true true) (+ 1 2 3))
       ((or true true false) 2)
diff --git a/examples/lists.bdl b/examples/lists.bdl
index 4a27005..36063d6 100644
--- a/examples/lists.bdl
+++ b/examples/lists.bdl
@@ -3,7 +3,7 @@
 ;;
 
 ;; List function.
-(print "(list) -> ") (list)
+(print "(list) -> ") (list) (newline)
 (print "(list 1) -> ") (list 1)
 (print "(list 1 2) -> ") (list 1 2)
 (print "(list 1 2 3) -> ") (list 1 2 3)
diff --git a/examples/types.bdl b/examples/types.bdl
index 43b7be9..36dab7a 100644
--- a/examples/types.bdl
+++ b/examples/types.bdl
@@ -12,14 +12,14 @@
 (print "(boolean? (not 1)) -> ")    (boolean? (not 1))
 
 ;; Empty list/null.
-(print "(null? true) -> ")       (null? true)
-(print "(null? false) -> ")      (null? false)
-(print "(null? 1) -> ")          (null? 1)
-(print "(null? 5) -> ")          (null? 5)
-(print "(null? \"string\") -> ") (null? "string")
-(print "(null? (+ 1 2 3)) -> ")  (null? (+ 1 2 3))
-(print "(null? (not 1)) -> ")    (null? (not 1))
-(print "(null? ()) -> ")         (null? ())
+(print "(nil? true) -> ")       (nil? true)
+(print "(nil? false) -> ")      (nil? false)
+(print "(nil? 1) -> ")          (nil? 1)
+(print "(nil? 5) -> ")          (nil? 5)
+(print "(nil? \"string\") -> ") (nil? "string")
+(print "(nil? (+ 1 2 3)) -> ")  (nil? (+ 1 2 3))
+(print "(nil? (not 1)) -> ")    (nil? (not 1))
+(print "(nil? ()) -> ")         (nil? ())
 
 ;; String.
 (print "(string? true) -> ")       (string? true)
@@ -40,7 +40,6 @@
 (print "(fixnum? (not 1)) -> ")    (fixnum? (not 1))
 
 ;; Symbol
-;; TODO: We need quotation to test for symbols.
 (print "(symbol? true) -> ")       (symbol? true)
 (print "(symbol? false) -> ")      (symbol? false)
 (print "(symbol? 1) -> ")          (symbol? 1)
@@ -48,8 +47,8 @@
 (print "(symbol? \"string\") -> ") (symbol? "string")
 (print "(symbol? (+ 1 2 3)) -> ")  (symbol? (+ 1 2 3))
 (print "(symbol? (not 1)) -> ")    (symbol? (not 1))
-; (print "(symbol? 'a) -> ")         (symbol? 'a)
-; (print "(symbol? 'c) -> ")         (symbol? 'c)
+(print "(symbol? 'a) -> ")         (symbol? 'a)
+(print "(symbol? 'c) -> ")         (symbol? 'c)
 
 ;; Pair.
 (print "(pair? false) -> ")        (pair? false)