mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-25 04:40:19 +02:00
Code Activity

readability improvement in vm-i-scheme

Browse source 
* libguile/vm-engine.h:
* libguile/vm-i-scheme.c: Move some helper macros closer to their use
  sites.
This commit is contained in:
Andy Wingo 2008-09-13 14:14:20 +02:00
parent 0ba8bb7143
commit 93d197be98
2 changed files with 6 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/vm-engine.h
View file

@ -469,17 +469,6 @@ do { \
#define CACHE_EXTERNAL() external = fp[bp->nargs + bp->nlocs]
/*
* Function support
*/
#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)
/*
Local Variables:
c-file-style: "gnu"

6
libguile/vm-i-scheme.c
View file

@ -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);