shen/release/test_programs/TinyLispFunctions.txt in shen-ruby-0.10.0 vs shen/release/test_programs/TinyLispFunctions.txt in shen-ruby-0.11.0

@@ -1,16 +1,16 @@
-(defun plus (x y)
-  (lispif (equal x 0) 
-           y
-           (plus (prec x) (succ y))))
-
-(defun member (x y)
-   (lispif (equal y (empty!)) 
-           (empty!)
-           (lispif (equal x (car y)) 
-                   y
-                   (member x (cdr y)))))
-
-(defun join (x y)
-   (lispif (equal x (empty!))
-            y
+(defun plus (x y)
+  (lispif (equal x 0) 
+           y
+           (plus (prec x) (succ y))))
+
+(defun member (x y)
+   (lispif (equal y (empty!)) 
+           (empty!)
+           (lispif (equal x (car y)) 
+                   y
+                   (member x (cdr y)))))
+
+(defun join (x y)
+   (lispif (equal x (empty!))
+            y
             (lispcons (car x) (join (cdr x) y))))
\ No newline at end of file