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

minor reformatting

Browse Source 
svn: r13635

original commit: 2f09a6d3bb505b8752e0cf67abcf36cd58784614
This commit is contained in:
Eli Barzilay 2009-02-16 00:51:03 +00:00
parent 92cd42afe6
commit f5cdef07f2
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/games/chat-noir/literate-lang.ss
View File

@ -35,20 +35,17 @@
code-blocks id
`(,@(mapping-get code-blocks id) ,@(map syntax-local-introduce exprs)))))
(define :make-splice make-splice)
(define-syntax (chunk stx)
(syntax-case stx ()
[(_ name expr ...)
(begin
(unless (identifier? #'name)
(raise-syntax-error #f "expected a chunk name" stx #'name))
(unless (regexp-match #rx"^<.*>$" (symbol->string (syntax-e #'name)))
(raise-syntax-error #f "chunk names must begin and end with angle brackets, <...>"
stx
#'name))
(add-to-block! #'name (syntax->list #'(expr ...)))
#`(void))]))
(cond [(not (identifier? #'name))
(raise-syntax-error #f "expected a chunk name" stx #'name)]
[(not (regexp-match? #rx"^<.*>$" (symbol->string (syntax-e #'name))))
(raise-syntax-error
#f "chunk names must begin and end with angle brackets, <...>"
stx #'name)]
[else (add-to-block! #'name (syntax->list #'(expr ...)))
#`(void)])]))
(define-syntax (tangle stx)
(define block-mentions '())