No, the build failure is due to this bug: http://bugs.racket-lang.org/query/?cmd=view&pr=12116
I'd be happy to avoid building redex/tests/compiler temporarily, but I don't know how to do that, short of removing it from the repository entirely. On Tue, Aug 16, 2011 at 7:39 PM, Stephen Chang <[email protected]> wrote: > 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
