commit 25731ec47e8934371389c66b3724a6d1971757db parent 1c7d513cf44d90c77386a899c67a123aa2488cad Author: Georges Dupéron <georges.duperon@gmail.com> Date: Sun, 5 Feb 2017 23:30:35 +0100 Use 'scribble-render-as syntax property, to render correctly multi-like #λ forms. Diffstat:
| M | aful/reader.rkt | | | 2 | +- |
| M | aful/scribble-enhanced.rkt | | | 22 | +++++++++++++++------- |
2 files changed, 16 insertions(+), 8 deletions(-)
diff --git a/aful/reader.rkt b/aful/reader.rkt @@ -165,7 +165,7 @@ (lambda args (define-syntax % (make-rename-transformer #'%1)) body)) - 'scribble-render + 'scribble-render-as aful-scribble-render) )) stx))) diff --git a/aful/scribble-enhanced.rkt b/aful/scribble-enhanced.rkt @@ -1,11 +1,19 @@ #lang racket (provide aful-scribble-render) -(define (aful-scribble-render self) +(require scribble/manual + phc-toolkit/stx) + +(define (aful-scribble-render self id code typeset-code uncode d->s stx-prop) (syntax-case self () [(_ _ _ body) - #`(let () - (local-require scribble-enhanced/with-manual) - (elem (list (seclink "_lang_aful" #:doc '(lib "aful/docs/aful.scrbl") - (tt "#λ")) - (racket body))))])) -\ No newline at end of file + ; #λ(body) reads as: + ; (lambda args + ; (define-syntax % (make-rename-transformer #'%1)) + ; body) + (with-syntax ([uncode (datum->syntax uncode (syntax-e uncode) self)]) + (syntax/top-loc self + ((uncode(seclink "_lang_aful" + #:doc '(lib "aful/docs/aful.scrbl") + (tt "#λ"))) + body)))])) +\ No newline at end of file