diff options
| author | Keith Packard <keithp@keithp.com> | 2017-11-16 22:13:46 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-11-16 22:13:46 -0800 |
| commit | 435a91ae3889cd361b543f4555a78488905e0bbb (patch) | |
| tree | cc3e68b8b32c5eee29736e4f035cb6142b5b0f99 /src/lisp/ao_lisp.h | |
| parent | cc76030d669600051fbb42a8cf85701aaaf5f5b7 (diff) | |
altos/lisp: Lots more scheme bits
* Arithmetic functions and tests
* append, reverse and list-tail
* set-car! and set-cdr!
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp.h')
| -rw-r--r-- | src/lisp/ao_lisp.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lisp/ao_lisp.h b/src/lisp/ao_lisp.h index 9a48a445..341996c0 100644 --- a/src/lisp/ao_lisp.h +++ b/src/lisp/ao_lisp.h @@ -136,7 +136,7 @@ ao_lisp_is_const(ao_poly poly) { #define AO_LISP_IS_CONST(a) (ao_lisp_const <= ((uint8_t *) (a)) && ((uint8_t *) (a)) < ao_lisp_const + AO_LISP_POOL_CONST) #define AO_LISP_IS_POOL(a) (ao_lisp_pool <= ((uint8_t *) (a)) && ((uint8_t *) (a)) < ao_lisp_pool + AO_LISP_POOL) -#define AO_LISP_IS_INT(p) (ao_lisp_base_type(p) == AO_LISP_INT); +#define AO_LISP_IS_INT(p) (ao_lisp_poly_base_type(p) == AO_LISP_INT) void * ao_lisp_ref(ao_poly poly); |