remove duplicate function: out

Author: Javran

ty-scheme/ch02/char-and-symbol.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 (out #\c)
 (out (char? #\c))

ty-scheme/ch02/conversion.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 (out (char->integer #\d))
 ; 100

ty-scheme/ch02/other.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 (out cons)
 ; a procedure

ty-scheme/ch02/pair-and-list.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 ; cons combines things together
 (define pair1 (cons 1 #t))

ty-scheme/ch02/string.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 ; strings evaluate to themselves as well
 (out "Nice boat!")

ty-scheme/ch02/vector.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 ; summary:
 ; '(vector ... )' or '#( ... )' to make a vector

ty-scheme/ch03/apply.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 (define x '(1 2 3 4))
 

ty-scheme/ch03/procedures.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 (out (lambda (x) (+ x 2)))
 ; procedure

ty-scheme/ch04/conditionals.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 (define p 80)
 

ty-scheme/ch05/let.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 (define x 20)
 (let (

ty-scheme/ch05/lexical-variables.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 ; here x is a global variable
 (define x 9)

ty-scheme/ch06/iteration.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 (define list-position
   (lambda (obj ls)

ty-scheme/ch06/letrec.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 (define factorial
   (lambda (n)

ty-scheme/ch06/map.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 (define add2
   (lambda (n)

ty-scheme/ch06/named-let.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 ; only 'letrec' will work here
 ;     because 'let' cannot make countdown seen its definition in its body

ty-scheme/ch07/file-ports.scm

@@ -1,10 +1,4 @@
-(define out
-  (lambda (what)
-    (begin
-      (display what)
-      (newline))))
-
-(newline)
+(load "../common/utils.scm")
 
 ; the s-expr below is identical
 ;     current-output-port is used if no port is given

ty-scheme/ch07/string-ports.scm

@@ -0,0 +1,20 @@
+(load "../common/utils.scm")
+
+(define str-in (open-input-string "nice boat\na string port"))
+
+(out (read-char str-in))
+; #\n
+
+(out (read-line str-in))
+; "ice boat"
+
+(out (read-line str-in))
+; "a string port"
+
+(define str-out (open-output-string))
+
+(display "let's write something to a string" str-out)
+(newline str-out)
+
+; use 'get-output-string' to extract value inside the port
+(out (get-output-string str-out))

ty-scheme/common/utils.scm

@@ -0,0 +1,8 @@
+(define out
+  (lambda (what)
+    (begin
+      (display what)
+      (newline))))
+
+; use newline to finish the line "loading XXX ..."
+(newline)