* Fixed apropos: regexp-exec does not accept symbol arguments any more.

[bpt/guile.git] / ice-9 / emacs.scm

diff --git a/ice-9/emacs.scm b/ice-9/emacs.scm
index 535e59a..850571d 100644 (file)
--- a/ice-9/emacs.scm
+++ b/ice-9/emacs.scm
@@ -248,7 +248,7 @@
 
 (define (emacs-symdoc symbol)
   (if (or (not (module-bound? (current-module) symbol))
-         (not (procedure? (eval symbol) (interaction-environment))))
+         (not (procedure? (eval symbol (interaction-environment)))))
       'nil
       (procedure-documentation (eval symbol (interaction-environment)))))