From 4a75b8a99b84b6dc0e7ffd5b0770c042ae87e76d Mon Sep 17 00:00:00 2001
From: William G Hatch <william@hatch.uno>
Date: Sat, 24 Sep 2016 14:43:13 -0600
Subject: [PATCH] fix string example in docs...
---
udelim/udelim.scrbl | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/udelim/udelim.scrbl b/udelim/udelim.scrbl
index e5be7ce..39b35b2 100644
--- a/udelim/udelim.scrbl
+++ b/udelim/udelim.scrbl
@@ -71,8 +71,10 @@ In addition to simply being a nice additional option to make literal strings, it
(require udelim)
(parameterize ([current-readtable (make-string-delim-readtable #\« #\»)])
(read
- (open-input-string
- "«this is a string with nested «string delimiters.» No \n escape interpreting.»")))]
+ (open-input-string #<<EOS
+«this is a string with nested «string delimiters.» No \n escape interpreting.»
+EOS
+ )))]
}
@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
(make-string-delim-readtable/wrap #\« #\» '#%guillemets)])
(read
- (open-input-string
- "«this is a string with nested «string delimiters.» No \n escape interpreting.»")))]
+ (open-input-string #<<EOS
+«this is a string with nested «string delimiters.» No \n escape interpreting.»
+EOS
+ )))]
}
@defproc[(stx-string->port [stx syntax?]) input-port?]{