c4 9 - 12

Author: seckcoder

src/eval/c4_10.scm

@@ -0,0 +1,2 @@
+; this can be achieved by modifying the variable?, begin? func ...
+; and corresponding make func

src/eval/c4_11.scm

@@ -0,0 +1 @@
+; in eval.scm

src/eval/c4_12.scm

@@ -0,0 +1 @@
+; wtf

src/eval/c4_9_unfinished.scm

@@ -0,0 +1,2 @@
+; in eval.scm
+;

src/eval/demo.scm

@@ -0,0 +1,23 @@
+(define (fib n)
+  (display (let fib-iter ((a 1)
+                 (b 0)
+                 (count n))
+    (if (= count 0)
+      b
+      (fib-iter (+ a b) a (- count 1))))
+           )
+  (display fib-iter)
+  )
+
+
+((lambda ()
+   (define fib-iter
+     (lambda (a b count)
+       (if (= count 0)
+         b
+         (fib-iter (+ a b) a (- count 1))
+         )
+       ))
+   (fib-iter 1 0 10)
+   )
+ )

src/eval/eval.scm

@@ -40,6 +40,7 @@
         ((or? exp) (seck-eval (or->if exp) env))
         ((let? exp) (seck-eval (let->combination exp) env))
         ((letstar? exp) (seck-eval (let*->nested-let exp) env))
+        ((for? exp) (seck-eval (for->let exp) env))
         ((application? exp)
          (seck-apply (seck-eval (operator exp) env)
                      (list-of-values (operand exp) env)))
@@ -452,6 +453,16 @@
                  (let-vals exp)  ; todo
                  ))
 
+; @(for)
+
+(define (for? exp)
+  (tagged-list? exp 'for))
+(define (for-init exp) (cadr exp))
+(define (for-can-continue exp) (caddr exp))
+(define (for-step exp) (cadddr exp))
+(define (for-body exp) (cddddr exp))
+
+
 ; @(application)
 (define application? pair?)
 (define (operator exp) (car exp))