From b99935f357629cc0ce13fb35c773817891ae479d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jens=20Axel=20S=C3=B8gaard?= <jensaxel@soegaard.net>
Date: Wed, 4 Jul 2012 19:45:50 +0200
Subject: [PATCH] Use strip-context instead of replace-context in reader. Now
 functions in bracket-lang.rkt can be used in Bracket files

---
 bracket/bracket-lang.rkt              | 7 ++++---
 bracket/examples/newton-iteration.rkt | 6 +++---
 bracket/lang/reader.rkt               | 3 +--
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/bracket/bracket-lang.rkt b/bracket/bracket-lang.rkt
index 23afebc5d..4f887a480 100644
--- a/bracket/bracket-lang.rkt
+++ b/bracket/bracket-lang.rkt
@@ -7,11 +7,10 @@
          (submod "bracket.rkt" bracket)
          "unparse.rkt")
 
+(provide (for-syntax #%module-begin)
+         #%module-begin)
 (provide (all-from-out racket)
          unparse)
-(provide (all-defined-out)
-         (for-syntax #%module-begin)
-         #%module-begin)
 
 (define-syntax (DeclareVars stx)
   (syntax-case stx ()
@@ -19,3 +18,5 @@
      #'(begin 
          (define sym 'sym) ...
          (set! sym 'sym) ...)]))
+
+(provide (all-defined-out))
\ No newline at end of file
diff --git a/bracket/examples/newton-iteration.rkt b/bracket/examples/newton-iteration.rkt
index 945375a5d..1ff59e976 100644
--- a/bracket/examples/newton-iteration.rkt
+++ b/bracket/examples/newton-iteration.rkt
@@ -24,7 +24,7 @@ NestList(f,expr,n):=if(n=0, List(expr), Cons(expr, NestList(f,f(expr),n-1)));
 % Use it!
 NestList(next,x0,7);
 % NestList also works symbolically.
-%DeclareVars(g,x);
-%NestList(g,x,5);
+DeclareVars(g,x);
+NestList(g,x,5);
 % We can get the first approximations as symbolical expressions. Not pretty.
-%NestList(next,x,2);
+NestList(next,x,2);
diff --git a/bracket/lang/reader.rkt b/bracket/lang/reader.rkt
index 8f8bb284f..71bf08f54 100644
--- a/bracket/lang/reader.rkt
+++ b/bracket/lang/reader.rkt
@@ -50,8 +50,7 @@
                          (build-path base "../bracket.rkt"))))]
                     [module-name (generate-temporary "main")])
         (syntax-property 
-         (replace-context #'here
-          ;strip-context   
+         (strip-context ; reason: see read docs on read-syntax
           #'(module module-name bracket/bracket-lang
               (require (submod (file bracket.rkt) bracket)
                        (submod (file bracket.rkt) symbolic-application))