Re: [racket-dev] syntax-case and stack trace

2011-07-16 Thread Casey Klein
On Sat, Jul 16, 2011 at 9:30 AM, Matthias Felleisen wrote: > > On Jul 16, 2011, at 8:19 AM, Matthew Flatt wrote: > >> At Fri, 15 Jul 2011 21:53:59 -0500, Casey Klein wrote: >>> FWIW, the big taints commit also changed the value of this expression: >>> >>> (let ([s #'x]) >>>  (equal? s >>>        

Re: [racket-dev] syntax-case and stack trace

2011-07-16 Thread Matthias Felleisen
On Jul 16, 2011, at 8:19 AM, Matthew Flatt wrote: > At Fri, 15 Jul 2011 21:53:59 -0500, Casey Klein wrote: >> FWIW, the big taints commit also changed the value of this expression: >> >> (let ([s #'x]) >> (equal? s >> (with-handlers ([exn:fail:syntax? (compose first >> exn:fail:syntax-

Re: [racket-dev] syntax-case and stack trace

2011-07-16 Thread Matthew Flatt
At Fri, 15 Jul 2011 21:53:59 -0500, Casey Klein wrote: > FWIW, the big taints commit also changed the value of this expression: > > (let ([s #'x]) > (equal? s > (with-handlers ([exn:fail:syntax? (compose first > exn:fail:syntax-exprs)]) > (raise-syntax-error #f "message" s)

Re: [racket-dev] syntax-case and stack trace

2011-07-15 Thread Casey Klein
Thanks! FWIW, the big taints commit also changed the value of this expression: (let ([s #'x]) (equal? s (with-handlers ([exn:fail:syntax? (compose first exn:fail:syntax-exprs)]) (raise-syntax-error #f "message" s On Fri, Jul 15, 2011 at 5:40 PM, Matthew Flatt wrote:

Re: [racket-dev] syntax-case and stack trace

2011-07-15 Thread Matthew Flatt
This is a bug in errortrace that was introduced with the switch to taints. I'm fixing it. At Fri, 15 Jul 2011 16:27:57 -0500, Casey Klein wrote: > Running the following program in DrRacket 5.1.1 highlights the `error' > expression if debugging is enabled: > > #lang racket > > (syntax-case 'a ()

Re: [racket-dev] syntax-case and stack trace

2011-07-15 Thread Casey Klein
On Fri, Jul 15, 2011 at 4:27 PM, Casey Klein wrote: > Running the following program in DrRacket 5.1.1 highlights the `error' > expression if debugging is enabled: > > #lang racket > > (syntax-case 'a () >  (_ (error 'boom))) > > Running the same program in 4d7584d/g doesn't highlight anything. > >

[racket-dev] syntax-case and stack trace

2011-07-15 Thread Casey Klein
Running the following program in DrRacket 5.1.1 highlights the `error' expression if debugging is enabled: #lang racket (syntax-case 'a () (_ (error 'boom))) Running the same program in 4d7584d/g doesn't highlight anything. Without the `syntax-case' around it, both versions highlight the `err