From 46f84b52654f5022416e95b6540dfa46fb3e67f1 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 18 Aug 2016 02:43:05 -0400
Subject: [PATCH] Issue #21 - Allow eval to handle optional args

---
 scheme/eval.sld | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/scheme/eval.sld b/scheme/eval.sld
index e7e0022a..6f0d9651 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -482,13 +482,12 @@
          (apply-primitive-procedure proc args))
         ((compound-procedure? proc)
          ((procedure-body proc)
-          (let ((
           (env:extend-environment 
             (formals->list 
               (procedure-parameters proc))
-            ;(pack-lambda-arguments 
-               ;(procedure-parameters proc)
-               args ;)
+            (pack-lambda-arguments 
+               (procedure-parameters proc)
+               args)
             (procedure-environment proc))))
         ((procedure? proc)
          (apply