use (define) syntax sugar in examples

examples/closure.scm

@@ -1,5 +1,5 @@
-(define make-adder (lambda (x)
-	(lambda (y) (+ x y))))
+(define (make-adder x)
+	(lambda (y) (+ x y)))
 
 (define add-3 (make-adder 3))
 

examples/factorial.scm

@@ -1,14 +1,14 @@
-(define ! (lambda (n)
+(define (! n)
     (if (>= 1 n)
         1
-        (* n (! (- n 1))))))
+        (* n (! (- n 1)))))
 
-(define !-it (lambda (x)
-    (define !-internal (lambda (n current)
+(define (!-it x)
+    (define (!-internal n current)
         (if (= n 0)
             current
-            (!-internal (- n 1) (* n current)))))
-    (!-internal x 1)))
+            (!-internal (- n 1) (* n current))))
+    (!-internal x 1))
 
 (display (string-concatenate (list
 	"factorial: "

examples/foldr.scm

@@ -1,10 +1,10 @@
-(define foldr (lambda (op init lst)
+(define (foldr op init lst)
 	(if (null? lst)
 		init
-		(op (car lst) (foldr op init (cdr lst)))))) 
+		(op (car lst) (foldr op init (cdr lst)))))
 
-(define sum (lambda (lst)
-	(foldr + 0 lst)))
+(define (sum lst)
+	(foldr + 0 lst))
 
 (display (sum (list 1 2 3)))
 (newline)

examples/map.scm

@@ -1,9 +1,7 @@
-(define map (lambda (fn lst)
+(define (map fn lst)
 	(if (null? lst)
 		lst
-		(cons (fn (car lst)) (map fn (cdr lst))))))
+		(cons (fn (car lst)) (map fn (cdr lst)))))
 
-(define double (lambda (x) (* 2 x)))
-
-(display (map double (list 1 2 3)))
+(display (map (lambda (x) (* 2 x)) (list 1 2 3)))
 (newline)

examples/misc.scm

@@ -1,5 +1,5 @@
-(define not (lambda (x)
-	(if (equal? #t x) #f #t)))
+(define (not x)
+	(if (equal? #t x) #f #t))
 
 (define PI 3.41)
 

examples/variables.scm

@@ -1,10 +1,10 @@
 (define var)
 
-(define fn (lambda ()
-	(define inner (lambda ()
+(define (fn)
+	(define (inner)
 		(set! var "still in global scope")
-		0))
-	(inner)))
+		#f)
+	(inner))
 
 (fn)