25 lines
497 B
C
25 lines
497 B
C
#include <stdio.h>
|
|
#include "scm_support.h"
|
|
|
|
int main() {
|
|
int val;
|
|
int *argl;
|
|
void *cont, *entry, *proc, *env;
|
|
|
|
proc = lookup_variable_value("+", env);
|
|
val = 1;
|
|
argl = list(val);
|
|
val = 1;
|
|
argl = cons(val, argl);
|
|
if (primitive_procedure(proc) == 1)
|
|
goto primitivebranch3;
|
|
compiledbranch2:
|
|
cont = &&aftercall1;
|
|
entry = compiled_procedure_entry(proc);
|
|
goto *entry;
|
|
primitivebranch3:
|
|
val = proc(argl);
|
|
aftercall1:
|
|
printf("%u\n", val);
|
|
}
|