summaryrefslogtreecommitdiffstats
path: root/lib.h
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2011-10-06 11:02:23 -0700
committerKaz Kylheku <kaz@kylheku.com>2011-10-06 11:02:23 -0700
commitb9746b4840d0f38042773bbc097286dd02857e18 (patch)
treeebe73725ef28da213ad71957e9cc42c18745150b /lib.h
parent9ea10a1408eb1cd63bd38f0367428b2b57b57b97 (diff)
downloadtxr-b9746b4840d0f38042773bbc097286dd02857e18.tar.gz
txr-b9746b4840d0f38042773bbc097286dd02857e18.tar.bz2
txr-b9746b4840d0f38042773bbc097286dd02857e18.zip
* lib.c (funcall3, curry_123_2): New functions.
(do_curry_123_2): New static function. * lib.h (funcall3, curry_123_2): Declared. * match.c (subst_vars): Bugfix: throw error on unbound variable instead of ignoring the situation. This bug caused unbound variables in quasiliterals to be silently ignored. (eval_form): Function changed to three argument form, so that it takes a line number for reporting errors. Restructured to catch the new unbound variable exception from subst_vars, and re-throw it with a line number. Also, throws exception now instead of returning nil if itself it detets an unbound variable. Uses of eval_form no longer have to test the return value for nil, but just assume it worked. (match_lines): Currying calls to eval form updated to use curry_123_2. Test of eval return value eliminated. In function calls, eval isn't used for reducing symbol arguments to values, because it now throws in the unbound case, and it's not worth setting up a catch for this. Instead, assoc is used directly.
Diffstat (limited to 'lib.h')
-rw-r--r--lib.h2
1 files changed, 2 insertions, 0 deletions
diff --git a/lib.h b/lib.h
index 0d55701f..302f8b35 100644
--- a/lib.h
+++ b/lib.h
@@ -352,9 +352,11 @@ val apply(val fun, val arglist);
val funcall(val fun);
val funcall1(val fun, val arg);
val funcall2(val fun, val arg1, val arg2);
+val funcall3(val fun, val arg1, val arg2, val arg3);
val reduce_left(val fun, val list, val init, val key);
val bind2(val fun2, val arg);
val bind2other(val fun2, val arg2);
+val curry_123_2(val fun3, val arg1, val arg3);
val chain(val first_fun, ...);
val andf(val first_fun, ...);
val vector(val alloc);