intern arbitrary constants

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

diff --git a/module/ice-9/poll.scm b/module/ice-9/poll.scm
index 1633dcb..57b5047 100644 (file)
--- a/module/ice-9/poll.scm
+++ b/module/ice-9/poll.scm
@@ -34,7 +34,7 @@
             poll-set-remove!
             poll))
 
-(eval-when (eval load compile)
+(eval-when (expand load eval)
   (load-extension (string-append "libguile-" (effective-version))
                   "scm_init_poll"))