projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lisp: Take advantage of implicit progn in ROM code
[fw/altos]
/
src
/
lisp
/
ao_lisp.h
diff --git
a/src/lisp/ao_lisp.h
b/src/lisp/ao_lisp.h
index 25d13fa3f7c94a51e14ddbc8ce721f7982cf6aa4..bcefbabf76abeae8fb3b2fae8166bc48c362660d 100644
(file)
--- a/
src/lisp/ao_lisp.h
+++ b/
src/lisp/ao_lisp.h
@@
-164,22
+164,15
@@
struct ao_lisp_frame {
#define AO_LISP_FRAME_MARK 0x80
static inline int ao_lisp_frame_num(struct ao_lisp_frame *f) {
#define AO_LISP_FRAME_MARK 0x80
static inline int ao_lisp_frame_num(struct ao_lisp_frame *f) {
- if (f->_num == 0xff)
- ao_lisp_abort();
return f->_num & AO_LISP_FRAME_NUM_MASK;
}
static inline int ao_lisp_frame_marked(struct ao_lisp_frame *f) {
return f->_num & AO_LISP_FRAME_NUM_MASK;
}
static inline int ao_lisp_frame_marked(struct ao_lisp_frame *f) {
- if (f->_num == 0xff)
- ao_lisp_abort();
return f->_num & AO_LISP_FRAME_MARK;
}
static inline struct ao_lisp_frame *
ao_lisp_poly_frame(ao_poly poly) {
return f->_num & AO_LISP_FRAME_MARK;
}
static inline struct ao_lisp_frame *
ao_lisp_poly_frame(ao_poly poly) {
- struct ao_lisp_frame *frame = ao_lisp_ref(poly);
- if (frame && frame->_num == 0xff)
- ao_lisp_abort();
return ao_lisp_ref(poly);
}
return ao_lisp_ref(poly);
}