Still in progress. Nothing workds.
This commit is contained in:
parent
aa5b34368e
commit
ef59563e25
14 changed files with 206 additions and 180 deletions
|
|
@ -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);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue