mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +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

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
2001-06-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.c (SCM_VALIDATE_NON_EMPTY_COMBINATION): New macro.
(SCM_CEVAL, SCM_APPLY): Replace calls to SCM_EVALIM2 with calls
to SCM_VALIDATE_NON_EMPTY_COMBINATION.
2001-06-05 Marius Vollmer <mvo@zagadka.ping.de> 2001-06-05 Marius Vollmer <mvo@zagadka.ping.de>
* extensions.c (scm_c_register_extension): Allow NULL as library * extensions.c (scm_c_register_extension): Allow NULL as library

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. /* The evaluator contains a plethora of EVAL symbols.
* This is an attempt at explanation. * This is an attempt at explanation.
* *
@ -1979,7 +1987,7 @@ dispatch:
goto nontoplevel_begin; goto nontoplevel_begin;
} }
else else
SCM_EVALIM2 (SCM_CAR (x)); SCM_VALIDATE_NON_EMPTY_COMBINATION (SCM_CAR (x));
} }
else else
SCM_CEVAL (SCM_CAR (x), env); SCM_CEVAL (SCM_CAR (x), env);
@ -3515,7 +3523,7 @@ tail:
goto again; goto again;
} }
else else
SCM_EVALIM2 (SCM_CAR (proc)); SCM_VALIDATE_NON_EMPTY_COMBINATION (SCM_CAR (proc));
} }
else else
SCM_CEVAL (SCM_CAR (proc), args); SCM_CEVAL (SCM_CAR (proc), args);