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

eat extra space before closing delimiter - fix issue #1

Browse Source
This commit is contained in:
William G Hatch 2017-01-30 12:52:11 -07:00
parent b743a31cff
commit afd0442a01
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
udelim/main.rkt
View File

@ -69,10 +69,16 @@
[(ch port src line col pos) [(ch port src line col pos)
(define (loop stxs-rev) (define (loop stxs-rev)
(let ([next-ch (read-char port)]) (let ([next-ch (read-char port)])
(if (equal? next-ch r-paren) (cond
(datum->syntax #f (reverse stxs-rev)) #| TODO - what if one of these whitespace characters is bound
(let ([one-stx (read-syntax/recursive src port next-ch)]) to something non-default in the readtable?? For now, just ignore
(loop (cons one-stx stxs-rev)))))) them. |#
[(member next-ch '(#\space #\tab #\newline #\vtab #\return))
(loop stxs-rev)]
[(equal? next-ch r-paren)
(datum->syntax #f (reverse stxs-rev))]
[else (let ([one-stx (read-syntax/recursive src port next-ch)])
(loop (cons one-stx stxs-rev)))])))
(loop '())])) (loop '())]))
paren-reader) paren-reader)