From 6c4da3e5e1cb02f4d4e522626579cbded546059a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku <kaz@kylheku.com> Date: Mon, 2 Apr 2012 15:59:10 -0700 Subject: * 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. --- lib.h | 1 + 1 file changed, 1 insertion(+) (limited to 'lib.h') diff --git a/lib.h b/lib.h index 3e2db2a4..39b590d5 100644 --- a/lib.h +++ b/lib.h @@ -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; } -- cgit v1.2.3