Replace eval-case with eval-when

[bpt/guile.git] / module / ice-9 / i18n.scm

diff --git a/module/ice-9/i18n.scm b/module/ice-9/i18n.scm
index 2a8e741..f33a9f2 100644 (file)
--- a/module/ice-9/i18n.scm
+++ b/module/ice-9/i18n.scm
@@ -83,9 +83,8 @@
            locale-yes-regexp locale-no-regexp))
 
 
-(eval-case
- ((load-toplevel compile-toplevel)
-  (load-extension "libguile-i18n-v-0" "scm_init_i18n")))
+(eval-when (eval load compile)
+  (load-extension "libguile-i18n-v-0" "scm_init_i18n"))
 
 \f
 ;;;