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

fix string example in docs...

Browse Source
This commit is contained in:
William G Hatch 2016-09-24 14:43:13 -06:00
parent 057f106167
commit 4a75b8a99b
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
udelim/udelim.scrbl
View File

@ -71,8 +71,10 @@ In addition to simply being a nice additional option to make literal strings, it
(require udelim) (require udelim)
(parameterize ([current-readtable (make-string-delim-readtable #\« #\»)]) (parameterize ([current-readtable (make-string-delim-readtable #\« #\»)])
(read (read
(open-input-string (open-input-string #<<EOS
"«this is a string with nested «string delimiters.» No \n escape interpreting.»")))] «this is a string with nested «string delimiters.» No \n escape interpreting.»
EOS
)))]
} }
@defproc[(make-string-delim-readtable/wrap @defproc[(make-string-delim-readtable/wrap
@ -88,8 +90,10 @@ Like @racket[make-string-delim-readtable], except that the result will be wrappe
(parameterize ([current-readtable (parameterize ([current-readtable
(make-string-delim-readtable/wrap #\« #\» '#%guillemets)]) (make-string-delim-readtable/wrap #\« #\» '#%guillemets)])
(read (read
(open-input-string (open-input-string #<<EOS
"«this is a string with nested «string delimiters.» No \n escape interpreting.»")))] «this is a string with nested «string delimiters.» No \n escape interpreting.»
EOS
)))]
} }
@defproc[(stx-string->port [stx syntax?]) input-port?]{ @defproc[(stx-string->port [stx syntax?]) input-port?]{