Another inconclusive session: still nothing works, still making progress.
This commit is contained in:
parent
ef59563e25
commit
eed4711fee
35 changed files with 317 additions and 232 deletions
|
|
@ -89,7 +89,7 @@ struct pso_pointer c_interned( struct pso_pointer key,
|
|||
* @return `true` if a pointer the key was found in the store..
|
||||
*/
|
||||
bool c_internedp( struct pso_pointer key, struct pso_pointer store ) {
|
||||
return !nilp( search( key, store, true ) );
|
||||
return !c_nilp( search( key, store, true ) );
|
||||
}
|
||||
|
||||
/**
|
||||
|
|
@ -149,5 +149,5 @@ struct pso_pointer internedp(
|
|||
struct pso_pointer store = or( make_frame( 2, frame_pointer,
|
||||
fetch_arg( frame, 1 ), frame->payload.stack_frame.env));
|
||||
|
||||
return c_internedp( key, store );
|
||||
return c_internedp( key, store ) ? t : nil;
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue