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

Fixes bug with … (again)

Browse Source
This commit is contained in:
Georges Dupéron 2016-08-01 18:58:27 +02:00
parent 4bc45f2f0c
commit f6facffe7a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
private/lp.rkt
View File

@ -55,7 +55,8 @@
(syntax-local-introduce #'here))) (syntax-local-introduce #'here)))
(define intr (make-syntax-delta-introducer b a)) (define intr (make-syntax-delta-introducer b a))
(syntax-local-lift-expression (syntax-local-lift-expression
(intr #`(quote-syntax (a-chunk (... name) (... expr) ...)) (intr #`(quote-syntax (a-chunk ((... ...) name)
((... ...) expr) ...))
'flip)) 'flip))
#'(begin)) #'(begin))
(macro-to-expand-unsyntax))) (macro-to-expand-unsyntax)))