예제 #1
0
파일: hashmain.c 프로젝트: bitwize/rscheme 
obj make_bucket( obj bucket_class, int bucket_bits )
{
  obj x;

  assert( CLASS_P(bucket_class) );
  x = gvec_alloc( (3 * BUCKET_CAPACITY) + 2, bucket_class );
  gvec_write_fresh_non_ptr( x, SLOT(0), int2fx( bucket_bits ) );
  return x;
}
예제 #2
0
파일: bcinterp.c 프로젝트: Fuhuiang/rscheme 
static obj get_bytecode_correlation( void )
{
  return gvec_alloc( SLOT(0), vector_class );
}