I'm getting some compile errors. Is it due to this checkin? raco setup: post-installing: mzcom raco setup: post-installing: mzscheme raco setup: post-installing: racket/gui raco setup: raco setup: error: during making for redex/tests/compiler raco setup: compile: identifier used out of context in: compile
On Tue, Aug 16, 2011 at 8:18 PM, <[email protected]> wrote: > clklein has updated `master' from 52fb1e3460 to cee4566ed4. > http://git.racket-lang.org/plt/52fb1e3460..cee4566ed4 > > =====[ 1 Commits ]====================================================== > > Directory summary: > 100.0% collects/redex/tests/ > > ~~~~~~~~~~ > > cee4566 Casey Klein <[email protected]> 2011-08-16 19:17 > : > | Makes test work when compilation strips source locations > : > M collects/redex/tests/check-syntax-test.rkt | 43 ++++++++++++++++--------- > > =====[ Overall Diff ]=================================================== > > collects/redex/tests/check-syntax-test.rkt > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > --- OLD/collects/redex/tests/check-syntax-test.rkt > +++ NEW/collects/redex/tests/check-syntax-test.rkt > @@ -7,6 +7,19 @@ > > (reset-count) > > +(define-syntax (identifier stx) > + (syntax-case stx () > + [(_ x) > + (identifier? #'x) > + #`(let ([p (open-input-string (format "~s" 'x))]) > + (port-count-lines! p) > + (set-port-next-location! > + p > + #,(syntax-line #'x) > + #,(syntax-column #'x) > + #,(syntax-position #'x)) > + (read-syntax '#,(syntax-source #'x) p))])) > + > (define (source stx) > (list (syntax-source stx) > (syntax-line stx) > @@ -64,15 +77,15 @@ > (define-values (add-syntax done) > (make-traversal module-namespace #f)) > > - (define language-def-name #'L) > - (define language-use-name #'L) > + (define language-def-name (identifier L)) > + (define language-use-name (identifier L)) > > - (define mode-name #'J) > - (define contract-name #'J) > - (define conclusion-name #'J) > - (define premise-name #'J) > - (define render-name #'J) > - (define holds-name #'J) > + (define mode-name (identifier J)) > + (define contract-name (identifier J)) > + (define conclusion-name (identifier J)) > + (define premise-name (identifier J)) > + (define render-name (identifier J)) > + (define holds-name (identifier J)) > > (define language-binding > (list language-def-name language-use-name)) > @@ -106,14 +119,14 @@ > (define-values (add-syntax done) > (make-traversal module-namespace #f)) > > - (define language-def-name #'L) > - (define language-use-name #'L) > + (define language-def-name (identifier L)) > + (define language-use-name (identifier L)) > > - (define contract-name #'f) > - (define lhs-name #'f) > - (define rhs-name #'f) > - (define render-name #'f) > - (define term-name #'f) > + (define contract-name (identifier f)) > + (define lhs-name (identifier f)) > + (define rhs-name (identifier f)) > + (define render-name (identifier f)) > + (define term-name (identifier f)) > > (define language-binding > (list language-def-name language-use-name)) > _________________________________________________ For list-related administrative tasks: http://lists.racket-lang.org/listinfo/dev
