diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-22 17:21:23 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-22 17:23:32 +0200 |
| commit | a66525db9c4c07c8cff6f927bd930f62f7d1ccdf (patch) | |
| tree | 061a872003ce41cc8dce12cf52a3153f88e68a97 /module/c/eval-basic.scm | |
| parent | Add procedures for referencing specifier value. (diff) | |
| download | calp-a66525db9c4c07c8cff6f927bd930f62f7d1ccdf.tar.gz calp-a66525db9c4c07c8cff6f927bd930f62f7d1ccdf.tar.xz | |
Handle nested #if trees.
Diffstat (limited to 'module/c/eval-basic.scm')
| -rw-r--r-- | module/c/eval-basic.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/c/eval-basic.scm b/module/c/eval-basic.scm index 9a16a095..7335e3ea 100644 --- a/module/c/eval-basic.scm +++ b/module/c/eval-basic.scm @@ -60,4 +60,6 @@ => (lambda (op) (apply op (map loop args)))) (else - (err "Unknown operator ~s" f))))))))) + (err "Unknown operator ~s" f)))) + (_ (err "Invalid (inner) form for basic eval: ~s" ast))))) + (_ (err "Invalid (outer) form for basic eval: ~s" ast)))) |