suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make @ be non-terminating in Scheme code, only in Scribble context (like |)

Browse Source 
svn: r6780
This commit is contained in:
Eli Barzilay 2007-06-30 06:38:51 +00:00
parent 2c9a1d8eca
commit 840b68963b
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/scribble/reader.ss
View File

@ -448,18 +448,21 @@
;; readtables ;; readtables
(define at-readtable (define at-readtable
(make-readtable #f ch:command 'terminating-macro (dispatcher #f))) (make-readtable #f ch:command 'non-terminating-macro (dispatcher #f)))
(provide use-at-readtable) (provide use-at-readtable)
(define (use-at-readtable) (define (use-at-readtable)
(port-count-lines! (current-input-port)) (port-count-lines! (current-input-port))
(current-readtable at-readtable)) (current-readtable at-readtable))
;; similar to plain Scheme (scribble, actually), but with `|' as a ;; similar to plain Scheme (scribble, actually), but with `@' and `|' as
;; terminating macro (otherwise it behaves the same; the only difference is ;; terminating macro characters (otherwise it behaves the same; the only
;; that `a|b|c' is three symbols) ;; difference is that `a|b|c' is three symbols and `@foo@bar' are two
;; @-forms)
(define command-readtable (define command-readtable
(make-readtable at-readtable #\| 'terminating-macro (make-readtable at-readtable
ch:command 'terminating-macro (dispatcher #f)
#\| 'terminating-macro
(lambda (char inp source-name line-num col-num position) (lambda (char inp source-name line-num col-num position)
(let ([m (*regexp-match #rx#"^([^|]*)\\|" inp)]) (let ([m (*regexp-match #rx#"^([^|]*)\\|" inp)])
(unless m (unless m