small sync

fixum/hello.scm

@@ -1,5 +0,0 @@
-; The first program
-
-(begin
-  (display "Hello, World!")
-  (newline))

little_schemer/tls.ss

@@ -0,0 +1,11 @@
+(define atom?
+  (lambda (x)
+    (and (not (pair? x)) (not (null? x)))))
+
+(define add1
+  (lambda (x)
+    (+ x 1)))
+
+(define sub1
+  (lambda (x)
+    (- x 1)))

yast/hello.scm

@@ -14,5 +14,16 @@
   (lambda (a b c)
     (+ a b c)))
 
+(define add1
+  (lambda (a)
+    (+ a 1)))
+
+(define sub1
+  (lambda (b)
+    (- b 1)))
+(display(string-append "sub1 to 2 is " (number->string(sub1 2)) "\n"))
+
+
 ;; display message on screen
 (display "Hello World!")
+