trying to eliminate redundant code in application, because it's getting hard to understand

2011-04-25 12:45:55 -04:00 · 2011-04-25 12:45:55 -04:00 · 8b5bd061db
commit 8b5bd061db
parent 759bedd9cf
2 changed files with 393 additions and 466 deletions
--- a/compiler.rkt
+++ b/compiler.rkt
--- a/test-compiler.rkt
+++ b/test-compiler.rkt
@ -519,6 +519,15 @@
      (void))


+
+(test '(begin (define (f x)
+                (* x x))
+              (f 3)
+              (f 4)
+              (f 5))
+      25)
+
+
 (test '(begin (define (sum-integers a b)
               (if (> a b)
                   0