suzanne.soy/aful
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Attempt to circumvent again https://github.com/racket/racket/issues/1549 for older versions

Browse Source
This commit is contained in:
Georges Dupéron 2017-02-06 01:44:30 +01:00
parent 67fcf59464
commit 6fe2c2903a
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
aful/scribble-enhanced.rkt
View File

@ -1,8 +1,7 @@
#lang racket #lang racket
(provide aful-scribble-render) (provide aful-scribble-render)
(require scribble/manual (require phc-toolkit/stx)
phc-toolkit/stx)
(define (aful-scribble-render self id code typeset-code uncode d->s stx-prop) (define (aful-scribble-render self id code typeset-code uncode d->s stx-prop)
(syntax-case self () (syntax-case self ()
@ -13,7 +12,9 @@
; body) ; body)
(with-syntax ([uncode (datum->syntax uncode (syntax-e uncode) self)]) (with-syntax ([uncode (datum->syntax uncode (syntax-e uncode) self)])
(syntax/top-loc self (syntax/top-loc self
((uncode(seclink "_lang_aful" ((uncode(let ()
(local-require scribble-enhanced/with-manual)
(seclink "_lang_aful"
#:doc '(lib "aful/docs/aful.scrbl") #:doc '(lib "aful/docs/aful.scrbl")
(tt "#λ"))) (tt "#λ"))))
body)))])) body)))]))