From 19411656ce2ada9b559362b71a7bff56a1095a96 Mon Sep 17 00:00:00 2001 From: BT Templeton Date: Fri, 23 Aug 2013 02:32:49 -0400 Subject: [PATCH] * src/eval.c (Fbind_symbol): New function. --- src/eval.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/src/eval.c b/src/eval.c index d1397e0ab2..b34e692f85 100644 --- a/src/eval.c +++ b/src/eval.c @@ -2265,6 +2265,18 @@ DEFUN ("values", Fvalues, Svalues, 0, MANY, 0, return scm_c_values (args, nargs); } +DEFUN ("bind-symbol", Fbind_symbol, Sbind_symbol, 3, 3, 0, + doc: /* Bind symbol. */) + (Lisp_Object symbol, Lisp_Object value, Lisp_Object thunk) +{ + Lisp_Object val; + dynwind_begin (); + specbind (symbol, value); + val = call0 (thunk); + dynwind_end (); + return val; +} + DEFUN ("apply", Fapply, Sapply, 1, MANY, 0, doc: /* Call FUNCTION with our remaining args, using our last arg as list of args. Then return the value FUNCTION returns. -- 2.20.1