bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit a93ee701fd66f7b3119e25744aedc0954dc8545b
parent bebefaa45c5bfbd7975e806433b034d6794710c0
Author: William J. Bowman <wjb@williamjbowman.com>
Date:   Sun, 24 Nov 2013 22:54:38 -0500

* Changed parsing for #:escape-id to use a peeking-input-port.
  pkgs/scribble-pkgs/scribble-lib/scribble/comment-reader.rkt

original commit: c77affa143c4739ff140e2df69aac38aee1fffb3

Diffstat:
M
pkgs/scribble-pkgs/scribble-lib/scribble/comment-reader.rkt
 | 
11
+++++------

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