outer.rkt in racket/base to reduce runtime dependencies

dyoo · Apr 20, 2012 · 7e075c1 · 7e075c1
1 parent f15f368
commit 7e075c1
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/outer.rkt b/outer.rkt
@@ -1,6 +1,7 @@
-#lang racket
+#lang racket/base
 (require racket/splicing
-         (for-syntax syntax/strip-context))
+         (for-syntax racket/base
+                     syntax/strip-context))
 
 (provide def outer)
 

diff --git a/test-outer.rkt b/test-outer.rkt
@@ -5,7 +5,6 @@
 
 
 
-
 (let ()
   (def (f x) 
     (def (g x) (* (outer x) x))
@@ -203,14 +202,14 @@
       ((_ id val)
        (let ()
          (def (h id)
-              (def (g id)
-                   val)
-              (g id))
+           (def (g id)
+             val)
+           (g id))
          (h 2)))))
 
   (def (g x)
     (def (h x)
       (m3 x (outer x)))
     (h 5))
 
-  (check-equal? (g 4) 4))
+  (check-equal? (g 4) 4))