mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

read-set! takes effect at expand time

Browse source 
* 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).
This commit is contained in:
Andy Wingo 2010-11-18 14:43:43 +01:00
parent c372cd74fd
commit e79caaa6c5
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/ice-9/boot-9.scm
View file

@ -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