minor bug fixes to 4.2 and 4.3

diff --git a/src/sicp/ex4_2.rkt b/src/sicp/ex4_2.rkt
index 91daa83974941cb0b802902cae42edd4b7355c38..e197d4bea168d328afecc6f54e68bcc91e464863 100644 (file)
--- a/src/sicp/ex4_2.rkt
+++ b/src/sicp/ex4_2.rkt
@@ -3,7 +3,7 @@
 #|
 
 a. application? only checks whether the given expression is a pair. It assumes that the rest of
-   the built in language clauses are already handled. So this will upset all other classes like
+   the built in language clauses are already handled. So this will upset all other clauses like
    define, let where Louis's eval would think define is a procedure and would proceed to evaluate
    the operands, which is wrong.
 

diff --git a/src/sicp/ex4_3.rkt b/src/sicp/ex4_3.rkt
index bbbf9a87e0a2351442552afd0ab80d464ac733e3..3314c1214c168b5ab6122b78e2bfc48ded1522f2 100644 (file)
--- a/src/sicp/ex4_3.rkt
+++ b/src/sicp/ex4_3.rkt
@@ -3,7 +3,7 @@
 (define (eval exp env)
   (cond ((self-evaluating? exp) exp)
         ((variable? exp) (lookup-variable-value exp env))
-        ((get (type exp)) ((get (type exp)) exp env))))
+        ((type exp) ((get (type exp)) exp env))))
 
 (define (type expr) (car expr))
 
@@ -17,4 +17,4 @@
 
 
 
-     
\ No newline at end of file
+