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

always count lines

Browse Source 
svn: r6705
This commit is contained in:
Eli Barzilay 2007-06-20 04:29:10 +00:00
parent 06b4cf70c9
commit 3f9ee8fb80
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/scribble/reader.ss
View File

@ -224,7 +224,6 @@
(if (or (not (read-insert-indents)) (null? stxs))
stxs
(let ([mincol (apply min (map syntax/placeholder-column stxs))])
;;!!!
(let loop ([curline line-num] [stxs stxs] [r '()])
(if (null? stxs)
(reverse! r)
@ -376,25 +375,29 @@
(if (eq? src default-src) (object-name port) src))
(define/kw (*read #:optional [inp (current-input-port)])
(port-count-lines! inp)
(parameterize ([current-readtable at-readtable])
(read inp)))
(define/kw (*read-syntax #:optional [src default-src]
[port (current-input-port)])
[inp (current-input-port)])
(port-count-lines! inp)
(parameterize ([current-readtable at-readtable])
(read-syntax (src-name src port) port)))
(read-syntax (src-name src inp) inp)))
(define/kw (read-inside #:optional [inp (current-input-port)])
(port-count-lines! inp)
(let-values ([(line col pos) (port-next-location inp)])
(parameterize ([current-readtable at-readtable])
(syntax-object->datum
((dispatcher #t) #f inp (object-name inp) line col pos)))))
(define/kw (read-inside-syntax #:optional [src default-src]
[port (current-input-port)])
(let-values ([(line col pos) (port-next-location port)])
[inp (current-input-port)])
(port-count-lines! inp)
(let-values ([(line col pos) (port-next-location inp)])
(parameterize ([current-readtable at-readtable])
((dispatcher #t) #f port (src-name src port) line col pos))))
((dispatcher #t) #f inp (src-name src inp) line col pos))))
(provide (rename *read read) (rename *read-syntax read-syntax)
read-inside read-inside-syntax)