read-set! takes effect at expand time

* module/ice-9/boot-9.scm (define-option-interface): The set! command
  goes in an eval-when to be run at expand-time, so that (read-set!
  keywords 'prefix) does what it used to in 1.8 (mostly).

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index f945ffd..b3b6893 100644 (file)
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2637,7 +2637,8 @@ module '(ice-9 q) '(make-q q-length))}."
        (define-syntax option-set!
          (syntax-rules ()
            ((_ opt val)
-            (options (append (options) (list 'opt val))))))))))
+            (eval-when (eval load compile expand)
+              (options (append (options) (list 'opt val)))))))))))
 
 (define-option-interface
   (debug-options-interface