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

Fixes issue with ... ?

Browse Source
This commit is contained in:
Georges Dupéron 2016-08-01 18:52:06 +02:00
parent 0a0505f504
commit 4bc45f2f0c
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 ...)) 'flip)) (intr #`(quote-syntax (a-chunk (... name) (... expr) ...))
'flip))
#'(begin)) #'(begin))
(macro-to-expand-unsyntax))) (macro-to-expand-unsyntax)))
;; Default (old) behaviour, which does not support escaping (via #,): ;; Default (old) behaviour, which does not support escaping (via #,):