diff options
| author | Mistivia <i@mistivia.com> | 2025-06-22 16:17:20 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-22 16:17:20 +0800 |
| commit | 5c0eddbed7f838daac17e0b9d9c2a23f17da4660 (patch) | |
| tree | 583026ff5f0614d6e6672e6bbb7879c24c701236 /src/interp.h | |
| parent | b19a0b2ea246be5610812bf7dd4088e0c4a70952 (diff) | |
min, max
Diffstat (limited to 'src/interp.h')
| -rw-r--r-- | src/interp.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/interp.h b/src/interp.h index 74bb0dd..36fd1e0 100644 --- a/src/interp.h +++ b/src/interp.h @@ -53,6 +53,7 @@ SExpRef Interp_load_file(Interp *interp, const char *filename); #define EVAL(_x) (lisp_eval(interp, (_x), false)) #define EVALTAIL(_x) (lisp_eval(interp, (_x), true)) #define TRUEP(_x) (lisp_truep(interp, (_x))) +#define FOREACH(_x, _lst) for (SExpRef _x = _lst; !NILP(_x); _x = CDR(_x)) // control flow #define CTL_FL(_x) \ (REF((_x))->type == kErrSignal \ |