lref_t apply1(lref_t fn, size_t argc, lref_t argv[]) { checked_assert((argc == 0) || (argv != NULL)); lref_t retval = NIL; lref_t env = NIL; lref_t next_form = apply(fn, argc, argv, &env, &retval); if (NULLP(next_form)) return retval; else return execute_fast_op(next_form, env); }
INLINE void SET_HASH_MASK(lref_t obj, size_t mask) { checked_assert(HASHP(obj)); obj->as.hash.table->mask = mask; }
INLINE size_t HASH_MASK(lref_t obj) { checked_assert(HASHP(obj)); return obj->as.hash.table->mask; }