From 97dbff89218ef2186c01f15e83071fed6f5119e5 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Tue, 8 Oct 2002 16:39:55 +0000 Subject: [PATCH] New function to undo "n" bindings of special variables. --- src/h/stacks.h | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/h/stacks.h b/src/h/stacks.h index 50aa790d4..15851140b 100644 --- a/src/h/stacks.h +++ b/src/h/stacks.h @@ -72,6 +72,9 @@ extern bds_ptr bds_top; /* bind stack top */ #define bds_unwind1 \ (SYM_VAL(bds_top->bds_sym) = bds_top->bds_val, --bds_top) +#define bds_unwind_n(n) \ + bds_unwind(bds_top - (n)) + /**************************** * INVOCATION HISTORY STACK ****************************/