"fix" local-eval for introduced toplevels

* module/ice-9/local-eval.scm: Fix for introduced toplevel identifiers.

diff --git a/module/ice-9/local-eval.scm b/module/ice-9/local-eval.scm
index 28f30b9..493dbed 100644 (file)
--- a/module/ice-9/local-eval.scm
+++ b/module/ice-9/local-eval.scm
@@ -180,7 +180,11 @@
                                  t)
                            patterns))))
               (else
-               (error "what" type val))))))))))
+               ;; Interestingly, this case can include globals (and
+               ;; global macros), now that Guile tracks which globals it
+               ;; introduces.  Not sure what to do here!  For now, punt.
+               ;; 
+               (lp ids capture formals wrappers patterns))))))))))
 
 (define-syntax the-environment
   (lambda (x)