diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2012-04-02 15:59:10 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2012-04-02 15:59:10 -0700 |
commit | 6c4da3e5e1cb02f4d4e522626579cbded546059a (patch) | |
tree | 9d7768ffa95564e86412495e2733875246d3cad2 /lib.h | |
parent | 87ed8a692c059f1e81f8deeea3b4f727044a45fa (diff) | |
download | txr-6c4da3e5e1cb02f4d4e522626579cbded546059a.tar.gz txr-6c4da3e5e1cb02f4d4e522626579cbded546059a.tar.bz2 txr-6c4da3e5e1cb02f4d4e522626579cbded546059a.zip |
* lib.c (vec_set_length): Use set instead of assignment.
(vecref_l): Use loc to lift address of cell.
(replace_vec): Use macro mut to indicate the object is being
mutated.
* lib.h (mut): New macro.
Diffstat (limited to 'lib.h')
-rw-r--r-- | lib.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -219,6 +219,7 @@ union obj { #define set(place, val) ((place) = (val)) #define loc(place) (&(place)) +#define mut(obj) INLINE cnum tag(val obj) { return ((cnum) obj) & TAG_MASK; } INLINE int is_ptr(val obj) { return obj && tag(obj) == TAG_PTR; } |