Still in progress. Nothing workds.

This commit is contained in:
Simon Brooke 2026-04-21 14:43:09 +01:00
parent aa5b34368e
commit ef59563e25
14 changed files with 206 additions and 180 deletions

View file

@ -35,8 +35,7 @@ struct pso_pointer apply(
#ifndef MANAGED_POINTER_ONLY
struct pso4 *frame,
#endif
struct pso_pointer frame_pointer,
struct pso_pointer env ) {
struct pso_pointer frame_pointer) {
#ifdef MANAGED_POINTER_ONLY
struct pso4 *frame = pointer_to_pso4( frame_pointer );
#endif
@ -54,8 +53,7 @@ struct pso_pointer eval(
#ifndef MANAGED_POINTER_ONLY
struct pso4 *frame,
#endif
struct pso_pointer frame_pointer,
struct pso_pointer env ) {
struct pso_pointer frame_pointer) {
#ifdef MANAGED_POINTER_ONLY
struct pso4 *frame = pointer_to_pso4( frame_pointer );
#endif
@ -71,7 +69,7 @@ struct pso_pointer eval(
// self evaluating
break;
case SYMBOLTV:
result = c_assoc( result, env );
result = c_assoc( result, fetch_env(frame_pointer) );
break;
// case LAMBDATV:
// result = eval_lambda( frame, frame_pointer, env);