suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues4 Pull Requests1 Actions Packages Projects Releases Wiki Activity

handle case of no body forms in lp langauge

Browse Source 
Closes
This commit is contained in:
Ayman Osman 2020-07-07 18:16:01 +01:00 committed by Matthew Flatt
parent cf0f2e3615
commit cda7efa29c
1 changed files with 5 additions and 1 deletions

6
scribble-lib/scribble/lp/lang/common.rkt
View File

@ -30,7 +30,7 @@
(define-syntax (tangle stx)
(define chunk-mentions '())
(unless first-id
(raise-syntax-error 'scribble/lp "no chunks"))
(raise-no-chunks-error))
(define orig-stx (syntax-case stx () [(_ orig) #'orig]))
(define (restore nstx d) (datum->syntax orig-stx d nstx nstx))
(define (shift nstx) (replace-context orig-stx nstx))
@ -121,6 +121,7 @@
(define-for-syntax ((make-module-begin submod?) stx)
(syntax-case stx ()
[(_) (raise-no-chunks-error)]
[(_ body0 . body)
(let ([expanded
(expand `(,#'module scribble-lp-tmp-name scribble/private/lp
@ -147,3 +148,6 @@
(define-syntax module-begin/plain (make-module-begin #f))
(define-syntax module-begin/doc (make-module-begin #t))
(define-for-syntax (raise-no-chunks-error)
(raise-syntax-error 'scribble/lp "no chunks"))