Author: Gianluca Guida <glguida@tlbflush.org>
Date: Thu Mar 2 22:11:28 UTC 2017
Parent: ba603811848f70ec8948d4a67d784cf6baf8614d
Log message:
ARGEVAL: move to header
1: diff --git a/src/lib/lac.c b/src/lib/lac.c
2: index 8a1192d..df17ea9 100644
3: --- a/src/lib/lac.c
4: +++ b/src/lib/lac.c
5: @@ -336,8 +336,6 @@ lreg_t eval(lreg_t sexp, lenv_t *env)
6: * Embedded Procedures
7: */
8:
9: -#define ARGEVAL(_lr, _e) ((_e) == NULL ? _lr : eval((_lr), (_e)))
10: -
11: /* Special Form */
12: LAC_API static lreg_t proc_quote(lreg_t args, lenv_t *argenv, lenv_t *env)
13: {
14: diff --git a/src/lib/lac.h b/src/lib/lac.h
15: index 7cc6411..4413dd3 100644
16: --- a/src/lib/lac.h
17: +++ b/src/lib/lac.h
18: @@ -219,6 +219,8 @@ lreg_t intern_symbol(char *s);
19: _ERROR_AND_RET("Too Many arguments"); \
20: } while ( 0 )
21:
22: +#define ARGEVAL(_lr, _e) ((_e) == NULL ? _lr : eval((_lr), (_e)))
23: +
24: #define LAC_DEFINE_TYPE_PFUNC(typename, typeno) \
25: LAC_API static lreg_t proc_##typename##p (lreg_t args, lenv_t *argenv, lenv_t *env) \
26: { \