commit | b3ca4fb8cbc8f27b2aa4c986399cf8c0656de7c0 | [log] [tgz] |
---|---|---|
author | swissChili <swisschili@fastmail.com> | Tue Apr 20 10:33:00 2021 -0700 |
committer | swissChili <swisschili@fastmail.com> | Tue Apr 20 10:33:00 2021 -0700 |
tree | 87017c777d4f36c3b68b064834842e2266a650fc | |
parent | 6eee4f9b11fe1add476a987afba6556d2481f26a [diff] [blame] |
Add lib/std, compile_expression ()
diff --git a/src/lisp/lisp.h b/src/lisp/lisp.h index 3c2cb3b..b781828 100644 --- a/src/lisp/lisp.h +++ b/src/lisp/lisp.h
@@ -46,8 +46,7 @@ struct alloc_list { int type; - union - { + union { struct cons *cons_val; }; struct alloc_list *next, *prev; @@ -92,6 +91,7 @@ bool listp (value_t v); bool nilp (value_t v); int length (value_t v); +value_t elt (value_t v, int index); void printval (value_t v, int depth);