1 files changed, 18 insertions, 5 deletions

diff --git a/main.scm b/main.scm
index 1781255..bc7c862 100644
--- a/main.scm
+++ b/main.scm
@@ -71,6 +71,17 @@
 (define (definition? expr) (tagged? expr 'define))
 (define (definition-name expr) (cadr expr))
 (define (definition-value expr) (caddr expr))
+(define (definition-lambda? expr) (pair? (definition-name expr)))
+(define (definition-lambda-name expr) (caadr expr))
+(define (definition-lambda-params expr) (cdadr expr))
+(define (definition-lambda-body expr) (cddr expr))
+(define (make-definition name value) (list 'define name value))
+(define (definition->lambda expr)
+  (let ([name (definition-lambda-name expr)]
+        [params (definition-lambda-params expr)]
+        [body (definition-lambda-body expr)])
+    (make-definition name
+                     (make-lambda params body))))
 
 ;;; lambda
 (define (lambda-form? expr) (tagged? expr 'lambda))
@@ -134,7 +145,7 @@
        statements))
 (define (make-unassigned-bindings internal-defines)
   (map (lambda (d)
-         (list (definition-name d) '*unassigned*)) internal-defines))
+         (list (definition-name d) ''*unassigned*)) internal-defines))
 (define (scan-out-defines body)
   (let ([internal-defines (filter definition? body)]
         [rest (filter (lambda (n) (not (definition? n))) body)])
@@ -197,10 +208,12 @@
     env))
 
 (define (eval-definition expr env)
-  (define-variable! 
-    (definition-name expr)
-    (eval-expr (definition-value expr) env)
-    env))
+  (cond
+    [(definition-lambda? expr) (eval-expr (definition->lambda expr) env)]
+    [else (define-variable! 
+            (definition-name expr)
+            (eval-expr (definition-value expr) env)
+            env)]))
 
 (define (eval-function-application expr env)
   (let ([proc (operator expr)]