suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Fixed rendering of non-dotted pairs in defform

Browse Source
This commit is contained in:
Georges Dupéron 2017-07-20 10:47:36 +02:00
parent 93748ccc7b
commit 45e1d7e4f0
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
scribble-lib/scribble/private/manual-form.rkt
View File

@ -95,13 +95,14 @@
(if (and (identifier? spec)
(free-identifier=? spec #'defined-id))
(datum->syntax #'here '(unsyntax x) spec spec)
(syntax-case spec ()
[(a . b)
(datum->syntax spec
(cons (loop #'a) (loop #'b))
(cond
[(syntax? spec) (datum->syntax spec
(loop (syntax-e spec))
spec
spec)]
[_ spec]))))])
[(pair? spec) (cons (loop (car spec))
(loop (cdr spec)))]
[else spec]))))])
#'(with-togetherable-racket-variables
(l.lit ...)
([form [defined-id spec]] [form [defined-id spec1]] ...