diff options
author | Andy Wingo <wingo@pobox.com> | 2012-01-30 20:28:10 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-01-30 20:28:10 +0100 |
commit | 3bf3d735ac743eda1f42627d165dfd86f1178126 (patch) | |
tree | 329005e697210d079ba26f32afb4de77b04ca571 | |
parent | dfadcf85cb3ae9133dece6bc39ed03dd25323d6e (diff) | |
download | guile-3bf3d735ac743eda1f42627d165dfd86f1178126.tar.gz |
"fix" local-eval for introduced toplevels
* module/ice-9/local-eval.scm: Fix for introduced toplevel identifiers.
-rw-r--r-- | module/ice-9/local-eval.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/ice-9/local-eval.scm b/module/ice-9/local-eval.scm index 28f30b991..493dbed0d 100644 --- 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) |