simon/post-scarcity
1
0
Fork 0
Code Issues 18 Pull requests Projects Releases Packages Wiki Activity Actions

More code, closer to working, still builds.

Browse source
This commit is contained in:
Simon Brooke 2026-04-15 22:47:44 +01:00
parent c9f50572ab
commit f751fc8a09
14 changed files with 138 additions and 133 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/c/ops/assoc.c
View file

@ -74,7 +74,8 @@ struct pso_pointer c_assoc( struct pso_pointer key, struct pso_pointer store ) {
*
* @return a pointer to the copy of the key in the store, or nil if not found.
*/
struct pso_pointer c_interned( struct pso_pointer key, struct pso_pointer store ) {
struct pso_pointer c_interned( struct pso_pointer key,
struct pso_pointer store ) {
return search( key, store, true );
}
@ -95,11 +96,12 @@ bool c_internedp( struct pso_pointer key, struct pso_pointer store ) {
*
* @return a pointer to the value of the key in the store, or nil if not found
*/
struct pso_pointer assoc(
struct pso_pointer assoc(
#ifndef MANAGED_POINTER_ONLY
struct pso4 * frame,
struct pso4 *frame,
#endif
struct pso_pointer frame_pointer, struct pso_pointer env) {
struct pso_pointer frame_pointer,
struct pso_pointer env ) {
#ifdef MANAGED_POINTER_ONLY
struct pso4 *frame = pointer_to_pso4( frame_pointer );
#endif
@ -114,11 +116,12 @@ struct pso_pointer assoc(
*
* @return a pointer to the copy of the key in the store, or nil if not found.
*/
struct pso_pointer interned(
struct pso_pointer interned(
#ifndef MANAGED_POINTER_ONLY
struct pso4 * frame,
struct pso4 *frame,
#endif
struct pso_pointer frame_pointer, struct pso_pointer env) {
struct pso_pointer frame_pointer,
struct pso_pointer env ) {
#ifdef MANAGED_POINTER_ONLY
struct pso4 *frame = pointer_to_pso4( frame_pointer );
#endif
@ -133,11 +136,12 @@ struct pso_pointer interned(
*
* @return `t` if a pointer to a copy of `key` is found in the store, or `nil` if not found.
*/
struct pso_pointer internedp(
struct pso_pointer internedp(
#ifndef MANAGED_POINTER_ONLY
struct pso4 * frame,
struct pso4 *frame,
#endif
struct pso_pointer frame_pointer, struct pso_pointer env) {
struct pso_pointer frame_pointer,
struct pso_pointer env ) {
#ifdef MANAGED_POINTER_ONLY
struct pso4 *frame = pointer_to_pso4( frame_pointer );
#endif
@ -145,4 +149,4 @@ struct pso_pointer internedp(
struct pso_pointer store = fetch_arg( frame, 1 );
return c_interned( key, store );
}
}