remove OP_PUTS and OP_PRINT, use say and write functions instead

14 files changed, 26 insertions, 26 deletions

diff --git a/tests/fizzbuzz.bth b/tests/fizzbuzz.bth
index 42c1760..2837b55 100644
--- a/tests/fizzbuzz.bth
+++ b/tests/fizzbuzz.bth
@@ -1,6 +1,6 @@
 (set n 1)
 (while (< n 30)
-    (puts 
+    (say 
      (if (= 0 (% n 5))
          (if (= 0 (% n 3)) "fizzbuzz" "buzz")
          (if (= 0 (% n 3)) "fizz" n)))
diff --git a/tests/four.bth b/tests/four.bth
index c44e487..c4df4e1 100644
--- a/tests/four.bth
+++ b/tests/four.bth
@@ -1 +1 @@
-(puts (+ 2 2))
+(say (+ 2 2))
diff --git a/tests/func1.bth b/tests/func1.bth
index 1f175ab..a71d160 100644
--- a/tests/func1.bth
+++ b/tests/func1.bth
@@ -1,2 +1,2 @@
 (set f (fn (_) 42))
-(puts (f 0))
+(say (f 0))
diff --git a/tests/func2.bth b/tests/func2.bth
index ee995fa..e57bc27 100644
--- a/tests/func2.bth
+++ b/tests/func2.bth
@@ -1,5 +1,5 @@
 (set f1 (fn (a) (* a a)))
 (set f2 (fn (a b) (+ a b)))
-(puts (f1 6))
-(puts (f2 20 40))
-(puts (f1 (f2 2 1)))
+(say (f1 6))
+(say (f2 20 40))
+(say (f1 (f2 2 1)))
diff --git a/tests/func3.bth b/tests/func3.bth
index 050a9bc..9c0ceeb 100644
--- a/tests/func3.bth
+++ b/tests/func3.bth
@@ -3,5 +3,5 @@
 		 (let (a 3
 			   g (fn (y) (+ y 7)))
 			   (* (g a) (g x)))))
-(puts (f1 6 6))
-(puts (f2 7))
+(say (f1 6 6))
+(say (f2 7))
diff --git a/tests/func4.bth b/tests/func4.bth
index fca67b1..efd2b71 100644
--- a/tests/func4.bth
+++ b/tests/func4.bth
@@ -1,5 +1,5 @@
 (set f1 (fn (x) (+ x 10)))
 (set f2 (fn (x) (* x 10)))
-(set g (fn (f x) (puts (f x)) (puts (f x))))
+(set g (fn (f x) (say (f x)) (say (f x))))
 (g f1 26)
 (g f2 6)
diff --git a/tests/mandel.bth b/tests/mandel.bth
index 54a1b4d..e75d694 100644
--- a/tests/mandel.bth
+++ b/tests/mandel.bth
@@ -14,7 +14,7 @@
                   (set zim nzim)
                   (set mag (+ (* zre zre) (* zim zim)))
                   (set i (if (< mag 4) (+ i 1) 999)))
-           (print (if (< mag 4) "#" "."))
+           (write (if (< mag 4) "#" "."))
            (set pxx (+ pxx 1)))
-    (puts "")
+    (say "")
     (set pxy (+ pxy 1)))
diff --git a/tests/mandel_local.bth b/tests/mandel_local.bth
index f2a1213..2cfa814 100644
--- a/tests/mandel_local.bth
+++ b/tests/mandel_local.bth
@@ -17,7 +17,7 @@
 		                  (set zim nzim)
 		                  (set mag (+ (* zre zre) (* zim zim)))
 		                  (set i (if (< mag 4) (+ i 1) 999)))
-		           (print (if (< mag 4) "#" "."))
+		           (write (if (< mag 4) "#" "."))
 		           (set pxx (+ pxx 1)))))
-		    (puts "")
+		    (say "")
 		    (set pxy (+ pxy 1))))
diff --git a/tests/multi.bth b/tests/multi.bth
index 49691ce..c2ff8cf 100644
--- a/tests/multi.bth
+++ b/tests/multi.bth
@@ -1,3 +1,3 @@
-(puts "hello")
-(puts "world")
+(say "hello")
+(say "world")
 nil
diff --git a/tests/vars.bth b/tests/vars.bth
index 54555ad..423dde6 100644
--- a/tests/vars.bth
+++ b/tests/vars.bth
@@ -1,8 +1,8 @@
 (set a 5)
 (set b 10)
 (set thethe 1234)
-(puts (+ a b))
-(puts (- thethe a))
-(puts (+ (set a 90) b))
-(puts a)
+(say (+ a b))
+(say (- thethe a))
+(say (+ (set a 90) b))
+(say a)
 nil
diff --git a/tests/vars1.bth b/tests/vars1.bth
index 7c0e264..24a3f2b 100644
--- a/tests/vars1.bth
+++ b/tests/vars1.bth
@@ -1,2 +1,2 @@
-(puts (+ 2 (let (a 10)
+(say (+ 2 (let (a 10)
                (* a a))))
diff --git a/tests/vars2.bth b/tests/vars2.bth
index cc4952e..4e49fb4 100644
--- a/tests/vars2.bth
+++ b/tests/vars2.bth
@@ -1,4 +1,4 @@
-(puts (+ 2 (* 6 (let (a 10
+(say (+ 2 (* 6 (let (a 10
                 b 20
                 c 30)
                (* b b)))))
diff --git a/tests/vars3.bth b/tests/vars3.bth
index cfc4560..149e694 100644
--- a/tests/vars3.bth
+++ b/tests/vars3.bth
@@ -1,5 +1,5 @@
 (set x 1)
 (set y 10)
-(puts (let (x 2)
+(say (let (x 2)
 	(let (y 20)
 		(+ x y))))
diff --git a/tests/vars4.bth b/tests/vars4.bth
index a535d54..30f75d3 100644
--- a/tests/vars4.bth
+++ b/tests/vars4.bth
@@ -1,7 +1,7 @@
 (set x 100)
-(puts x)
+(say x)
 (let (x 20)
-	(puts x)
+	(say x)
 	(set x 30)
-	(puts x))
-(puts x)
+	(say x))
+(say x)