diff --git a/c/scheme48heap.c b/c/scheme48heap.c index 88cea6d..6e3fe13 100644 --- a/c/scheme48heap.c +++ b/c/scheme48heap.c @@ -1,5 +1,6 @@ #include #include "prescheme.h" +#include #include "scheme48vm.h" static long copy_weak_pointer(long, char *, char **); diff --git a/c/scheme48vm.c b/c/scheme48vm.c index 8289be5..6609106 100644 --- a/c/scheme48vm.c +++ b/c/scheme48vm.c @@ -7217,8 +7217,8 @@ long s48_restart(long proc_361X, long nargs_362X) arg0K0 = 4; goto L17320;} L31929: { - if ((3 == (3 & arg5_743X))) { - if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_743X))) + -4))))>>2))))) { + if ((3 == (3 & arg3_741X))) { + if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg3_741X))) + -4))))>>2))))) { goto L31942;} else { goto L31937;}} @@ -8334,8 +8334,8 @@ long s48_restart(long proc_361X, long nargs_362X) else { goto L31959;}}}}} L31937: { - if ((3 == (3 & arg5_743X))) { - if ((18 == (31 & ((((*((long *) ((((char *) (-3 + arg5_743X))) + -4))))>>2))))) { + if ((3 == (3 & arg3_741X))) { + if ((18 == (31 & ((((*((long *) ((((char *) (-3 + arg3_741X))) + -4))))>>2))))) { goto L31942;} else { goto L31996;}}