[racket] paren-shape

From: Jens Axel Søgaard (jensaxel at soegaard.net)
Date: Sun May 13 15:57:48 EDT 2012

2012/5/13 Danny Yoo <dyoo at hashcollision.org>:
> Does this apply?
>  http://lists.racket-lang.org/dev/archive/2012-March/009205.html


The test for curliness must take the (cons orig new)
new possibility into account, and then it just works.


/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) #\{)))))))

Posted on the users mailing list.