Fix bug for read-syntax on ( . args)

* module/ice-9/boot-9.scm: Capture syntax?.
* module/ice-9/read.scm (read-syntax): Avoid re-annotating objects.
* test-suite/tests/reader.test ("read-syntax"): Add test.

1 files changed, 5 insertions, 2 deletions

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 251fedaa4..944061707 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -4656,8 +4656,11 @@ R7RS."
 ;;;
 
 (call-with-values (lambda ()
-                    (include-from-path "ice-9/read.scm")
-                    (values read read-syntax))
+                    ;; Capture syntax? binding, later removed from root
+                    ;; module.
+                    (let ((syntax? syntax?))
+                      (include-from-path "ice-9/read.scm")
+                      (values read read-syntax)))
   (lambda (read* read-syntax*)
     (set! read read*)
     (set! read-syntax read-syntax*)))