From 93d197be984c2732e08f1c271d8127886142f953 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 13 Sep 2008 14:14:20 +0200 Subject: readability improvement in vm-i-scheme * libguile/vm-engine.h: * libguile/vm-i-scheme.c: Move some helper macros closer to their use sites. --- libguile/vm-i-scheme.c | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'libguile/vm-i-scheme.c') diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c index 5c4dae17f..912c91bf2 100644 --- a/libguile/vm-i-scheme.c +++ b/libguile/vm-i-scheme.c @@ -46,6 +46,12 @@ * Predicates */ +#define ARGS1(a1) SCM a1 = sp[0]; +#define ARGS2(a1,a2) SCM a1 = sp[-1], a2 = sp[0]; sp--; +#define ARGS3(a1,a2,a3) SCM a1 = sp[-2], a2 = sp[-1], a3 = sp[0]; sp -= 2; + +#define RETURN(x) do { *sp = x; NEXT; } while (0) + VM_DEFINE_FUNCTION (not, "not", 1) { ARGS1 (x); -- cgit v1.2.3