Allow whole s-expressions to change the way they are rendered, using the scribble-render syntax property

2016-12-27 19:11:32 +01:00 · 2016-12-27 19:11:32 +01:00 · 923eba8839
commit 923eba8839
parent 23ddbecfa1
1 changed files with 3 additions and 0 deletions
--- a/racket.rkt
+++ b/racket.rkt
@ -1005,6 +1005,9 @@
             (let ([slv (and (identifier? v)
                             (syntax-local-value v (lambda () #f)))])
               (cond
+                 [(and (syntax? v) (syntax-property v 'scribble-render))
+                  => (λ (renderer)
+                       (wrap-loc v #f (renderer v)))]
                 [(variable-id? slv)
                  (wrap-loc v #f `(,#'make-var-id ',(variable-id-sym slv)))]
                 [(element-id-transformer? slv)