示例#1
0
文件: evaluator.c 项目: mschaef/vcsh
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);
}
示例#2
0
INLINE void SET_HASH_MASK(lref_t obj, size_t mask)
{
     checked_assert(HASHP(obj));
     obj->as.hash.table->mask = mask;
}
示例#3
0
INLINE size_t HASH_MASK(lref_t obj)
{
     checked_assert(HASHP(obj));
     return obj->as.hash.table->mask;
}