projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lisp: Use poly stashes for stacks
[fw/altos]
/
src
/
lisp
/
ao_lisp.h
diff --git
a/src/lisp/ao_lisp.h
b/src/lisp/ao_lisp.h
index cea834fcd03a161a78c0e0f467741ebaf568717a..e238d4fed8507af928939192f0be1527751ec4d9 100644
(file)
--- a/
src/lisp/ao_lisp.h
+++ b/
src/lisp/ao_lisp.h
@@
-468,22
+468,26
@@
struct ao_lisp_cons *
ao_lisp_cons_fetch(int id);
void
ao_lisp_cons_fetch(int id);
void
-ao_lisp_
string_stash(int id, char *string
);
+ao_lisp_
poly_stash(int id, ao_poly poly
);
-char *
-ao_lisp_
string
_fetch(int id);
+ao_poly
+ao_lisp_
poly
_fetch(int id);
void
void
-ao_lisp_st
ack_stash(int id, struct ao_lisp_stack *stack
);
+ao_lisp_st
ring_stash(int id, char *string
);
-
struct ao_lisp_stack
*
-ao_lisp_st
ack
_fetch(int id);
+
char
*
+ao_lisp_st
ring
_fetch(int id);
-void
-ao_lisp_poly_stash(int id, ao_poly poly);
+static inline void
+ao_lisp_stack_stash(int id, struct ao_lisp_stack *stack) {
+ ao_lisp_poly_stash(id, ao_lisp_stack_poly(stack));
+}
-ao_poly
-ao_lisp_poly_fetch(int id);
+static inline struct ao_lisp_stack *
+ao_lisp_stack_fetch(int id) {
+ return ao_lisp_poly_stack(ao_lisp_poly_fetch(id));
+}
/* cons */
extern const struct ao_lisp_type ao_lisp_cons_type;
/* cons */
extern const struct ao_lisp_type ao_lisp_cons_type;