mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 17:50:29 +02:00
Code Activity

* Introduce macro SCM_VALIDATE_NON_EMPTY_COMBINATION.

Browse source
This commit is contained in:
Dirk Herrmann 2001-06-05 20:48:28 +00:00
parent 97b4221044
commit 17fa3fcf36
2 changed files with 17 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/eval.c
View file

@ -106,6 +106,14 @@ char *alloca ();
#define SCM_VALIDATE_NON_EMPTY_COMBINATION(x) \
do { \
if (SCM_EQ_P ((x), SCM_EOL)) \
scm_misc_error (NULL, scm_s_expression, SCM_EOL); \
} while (0)
/* The evaluator contains a plethora of EVAL symbols.
* This is an attempt at explanation.
*
@ -1979,7 +1987,7 @@ dispatch:
goto nontoplevel_begin;
}
else
SCM_EVALIM2 (SCM_CAR (x));
SCM_VALIDATE_NON_EMPTY_COMBINATION (SCM_CAR (x));
}
else
SCM_CEVAL (SCM_CAR (x), env);
@ -3515,7 +3523,7 @@ tail:
goto again;
}
else
SCM_EVALIM2 (SCM_CAR (proc));
SCM_VALIDATE_NON_EMPTY_COMBINATION (SCM_CAR (proc));
}
else
SCM_CEVAL (SCM_CAR (proc), args);