src/api.c
static value nas_error_to_speller(value error, value config) {
	AspellSpeller *s;
	nas_errors *e;
	nas_config *c;		
	value r;
	
	val_check_kind(error,k_nas_error);
	val_check_kind(config,k_nas_config);
	e = val_nas_error(error);
	c = val_nas_config(config);	
	// calls delete_can_have_error on the incoming error:
	s = to_aspell_speller(val_nas_error(error)->error);
	// so we raise the deletion flag:
	e->deleted = 1;	
	r = alloc_abstract(k_nas_speller,addSpeller(c,s));		
	val_gc(r,finalize);
	return r; 
}
// Convert an error into a speller 
Convert an error into a speller
Convert an error into a speller
static value nas_error_to_speller(value error, value config) {
	AspellSpeller *s;
	nas_errors *e;
	nas_config *c;		
	value r;
	val_check_kind(error,k_nas_error);
	val_check_kind(config,k_nas_config);
	e = val_nas_error(error);
	c = val_nas_config(config);	
	s = to_aspell_speller(val_nas_error(error)->error);
	e->deleted = 1;	
	r = alloc_abstract(k_nas_speller,addSpeller(c,s));		
	val_gc(r,finalize);
	return r; 
}
static value nas_error_to_speller ( value error , value config ) { AspellSpeller * s ; nas_errors * e ; nas_config * c ; value r ; val_check_kind ( error , k_nas_error ) ; val_check_kind ( config , k_nas_config ) ; e = val_nas_error ( error ) ; c = val_nas_config ( config ) ; s = to_aspell_speller ( val_nas_error ( error ) -> error ) ; e -> deleted = 1 ; r = alloc_abstract ( k_nas_speller , addSpeller ( c , s ) ) ; val_gc ( r , finalize ) ; return r ; }
Convert an error into a speller
Convert an error into a speller
// calls delete_can_have_error on the incoming error: // so we raise the deletion flag: