[racket] paren-shape

A few minutes ago, Danny Yoo wrote:
> Does this apply?  http://lists.racket-lang.org/dev/archive/2012-March/
> 009205.html

Looks like it -- I change `curly?' to

  (define-for-syntax (curly? stx)
    (eprintf ">>> ~s -> ~s\n" stx (syntax-property stx 'paren-shape))
    (eq? (syntax-property stx 'paren-shape) #\{))

and I see printouts of these pairs.  Is there any reason for this kind
of cons-merging the before/after properties even when both have the
same value?  (Seems that the only information gained from this can be
taken from the origin property)

-- 
          ((lambda (x) (x x)) (lambda (x) (x x)))          Eli Barzilay:
                    http://barzilay.org/                   Maze is Life!