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

Closed #2 Wrong order of chunks: all @CHUNKs are inserted first, then the @chunks

Browse Source
This commit is contained in:
Georges Dupéron 2016-09-16 23:06:25 +02:00
parent d5f2514925
commit 57a4d0184d
2 changed files with 32 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
private/lp.rkt
View File

@ -45,11 +45,10 @@
;; code.
;; For now, only #, i.e. unsyntax is supported, within @chunk.
;; Later support for UNSYNTAX within @CHUNK may be added.
(define expand-unsyntax
(if unsyntax?
;; New hack:
(syntax-local-lift-module-end-declaration
#'(begin
(define-syntax (macro-to-expand-unsyntax _)
#'((define-syntax (macro-to-expand-unsyntax _)
(define a #'here)
(define b (syntax-local-identifier-as-binding
(syntax-local-introduce #'here)))
@ -58,11 +57,12 @@
(intr #`(quote-syntax (a-chunk ((... ...) name)
((... ...) expr) ...))
'flip))
#'(begin))
(macro-to-expand-unsyntax)))
;; Default (old) behaviour, which does not support escaping (via #,):
(syntax-local-lift-expression
#'(quote-syntax (a-chunk name expr ...))))
#'(void))
(macro-to-expand-unsyntax))
;; Default (old) behaviour, which does not support escaping via #,
(begin (syntax-local-lift-expression
#'(quote-syntax (a-chunk name expr ...)))
#f)))
;; Extract require forms
@ -110,6 +110,7 @@
rest ...))))
(#,racketblock expr ...))))
#`(begin
#,@(if expand-unsyntax expand-unsyntax #'())
#,@(if (null? (syntax-e #'(for-label-mod ... ...)))
#'()
#'((require (for-label for-label-mod ... ...))))

19
test/test-chunks-order.rkt Normal file
View File

@ -0,0 +1,19 @@
#lang hyper-literate racket/base
@chunk[<values>
'A]
@chunk[<values>
'B]
@CHUNK[<values>
'C]
@CHUNK[<values>
'D]
@chunk[<*>
(require rackunit)
(check-equal? (list <values>)
'(A B C D))]