mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fix interpretation of `(ice-9 getopt-long)'.

Browse source 
* module/ice-9/getopt-long.scm (define-one-option-spec-field-accessor,
  define-one-option-spec-field-modifier): Eval-case for `load-toplevel'
  as well so that the interpreter can load this module.
This commit is contained in:
Ludovic Courtès 2009-02-20 17:38:32 +01:00
parent d39b967642
commit 8f4e84855e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/getopt-long.scm
View file

@ -176,7 +176,7 @@
(define make-option-spec (record-constructor option-spec option-spec-fields))
(eval-case
((compile-toplevel)
((load-toplevel compile-toplevel)
;; The following procedures are used only at compile-time when expanding
;; `define-all-option-spec-accessors/modifiers' (see below).