>From e71e5daa4a94a126510ce9e939c8fa57f1bc2ef1 Mon Sep 17 00:00:00 2001 From: felix Date: Sun, 23 Dec 2018 20:44:51 +0100 Subject: [PATCH] Preserve read/write invariance for symbols prefixed with "#!" Only #!rest, #!key and #!optional should be written, since they are the only symbols of that type recognised by the reader. Signed-off-by: Evan Hanson --- library.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/library.scm b/library.scm index 08c437df..6a089955 100644 --- a/library.scm +++ b/library.scm @@ -4501,8 +4501,7 @@ EOF (not (and (fx> len 2) (eq? (##core#inline "C_subchar" str 1) #\#) (not (eq? (##core#inline "C_subchar" str 2) #\#))))) - ;; #!rest, #!key etc - (eq? (##core#inline "C_subchar" str 1) #\!)) + (member str '("#!rest" "#!key" "#!optional"))) ((specialchar? c) #f) (else #t) ) ) (let ((c (##core#inline "C_subchar" str i))) -- 2.11.0