From e79caaa6c5c071746f1684b3d166c586297b3c6a Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 18 Nov 2010 14:43:43 +0100 Subject: [PATCH] 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). --- module/ice-9/boot-9.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index f945ffd27..b3b689345 100644 --- 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