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

* Changed parsing for #:escape-id to use a peeking-input-port.

Browse Source 
pkgs/scribble-pkgs/scribble-lib/scribble/comment-reader.rkt

original commit: c77affa143c4739ff140e2df69aac38aee1fffb3
This commit is contained in:
William J. Bowman 2013-11-24 22:54:38 -05:00 committed by Matthew Flatt
parent bebefaa45c
commit a93ee701fd
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pkgs/scribble-pkgs/scribble-lib/scribble/comment-reader.rkt
View File

@ -1,4 +1,5 @@
(module comment-reader scheme/base (module comment-reader scheme/base
(require (only-in racket/port peeking-input-port))
(provide (rename-out [*read read] (provide (rename-out [*read read]
[*read-syntax read-syntax]) [*read-syntax read-syntax])
@ -17,12 +18,10 @@
(read-syntax/recursive src port))) (read-syntax/recursive src port)))
(define (read-unsyntaxer port) (define (read-unsyntaxer port)
(let-values ([(l c p) (port-next-location port)]) (let ([p (peeking-input-port port)])
(if (eq? (read port) '#:escape-id) (if (eq? (read p) '#:escape-id)
(read port) (begin (read port) (read port))
(begin 'unsyntax)))
(set-port-next-location! port l c p)
'unsyntax))))
(define (make-comment-readtable #:readtable [rt (current-readtable)]) (define (make-comment-readtable #:readtable [rt (current-readtable)])
(make-readtable rt (make-readtable rt