I think you probably have to recur when it is a pair, as the properties can get cons'd together multiple times.
On Sun, May 13, 2012 at 2:57 PM, Jens Axel Søgaard <jensa...@soegaard.net> wrote: > 2012/5/13 Danny Yoo <d...@hashcollision.org>: >> Does this apply? >> http://lists.racket-lang.org/dev/archive/2012-March/009205.html > > Yes! > > The test for curliness must take the (cons orig new) > new possibility into account, and then it just works. > > Thanks. > > /Jens Axel > > (define-for-syntax (curly? stx) > (let ([p (syntax-property stx 'paren-shape)]) > (and p (or (eqv? p #\{) > (and (pair? p) > (or (eqv? (car p) #\{) > (eqv? (cdr p) #\{))))))) > > ____________________ > Racket Users list: > http://lists.racket-lang.org/users ____________________ Racket Users list: http://lists.racket-lang.org/users
