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

made the special identifier <*> count as main, if it is present

Browse Source 
svn: r13833

original commit: 4fd43c7d9a7816bd0b960288234cbd5213b2d710
This commit is contained in:
Robby Findler 2009-02-25 15:30:29 +00:00
parent 6ea98dd621
commit aee7b363b4
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/scribble/lp/lang/lang.ss
View File

@ -6,6 +6,7 @@
(require (for-syntax scheme/base syntax/boundmap scheme/list syntax/kerncase))
(begin-for-syntax
(define first-id #f)
(define main-id #f)
(define (mapping-get mapping id)
(free-identifier-mapping-get mapping id (lambda () '())))
@ -16,7 +17,8 @@
(define (get-chunk id)
(map syntax-local-introduce (mapping-get chunks id)))
(define (add-to-chunk! id exprs)
(unless main-id (set! main-id id))
(unless first-id (set! first-id id))
(when (eq? (syntax-e id) '<*>) (set! main-id id))
(free-identifier-mapping-put!
chunk-groups id
(cons (syntax-local-introduce id) (mapping-get chunk-groups id)))
@ -26,8 +28,13 @@
(define-syntax (tangle stx)
(define chunk-mentions '())
(define stupid-internal-definition-sytnax
(unless main-id
(raise-syntax-error 'scribble/lp "no chunks")))
(define body
(let loop ([block (get-chunk main-id)])
(let loop ([block (if main-id
(get-chunk main-id)
(get-chunk first-id))])
(append-map
(lambda (expr)
(if (identifier? expr)