Turning attention to some plumbing.

* unwind.c (uw_env_stack): New static variable.
(uw_unwind_to_exit_point): Maintain correct uw_env_stack
during unwinding.
(uw_find_env): Just retrieve the env stack pointer; no search.
(uw_push_env): Store a pointer to the previous
environmental frame and just initialize the bindings to nil.
No need to cons up a copy of the bindings from the previous frame.
(uw_get_func): Perform a search through the environment stack.

* unwind.h (struct uw_dynamic_env): New member, up_env.

1 files changed, 1 insertions, 0 deletions

diff --git a/unwind.h b/unwind.h
index 26276772..98b7a58a 100644
--- a/unwind.h
+++ b/unwind.h
@@ -49,6 +49,7 @@ struct uw_block {
 struct uw_dynamic_env {
   uw_frame_t *up;
   uw_frtype_t type;
+  uw_frame_t *up_env;
   val func_bindings;
 };