Fix callframe loss

TODO.FACTOR.txt

@@ -4,6 +4,7 @@
   - we need to unwind the stacks to the level where the exception handler
     was set
 - "localhost" 50 <client> won't fail
+- compiled gc check slows things down
 
 + portability:
 

library/alien/compiler.factor

@@ -60,4 +60,4 @@ kernel-internals math namespaces sequences words ;
 : if-void ( type true false -- | false: type -- )
     pick "void" = [ drop nip call ] [ nip call ] if ; inline
 
-: compile-gc "simple_gc" f %alien-invoke , ;
+: compile-gc ; ! "simple_gc" f %alien-invoke , ;

library/test/compiler/callbacks.factor

@@ -46,12 +46,12 @@ FUNCTION: void callback_test_1 void* callback ; compiled
 : callback-6
     "void" { } [ [ continue ] callcc0 ] alien-callback ; compiled
 
-[ ] [ callback-6 callback_test_1 ] unit-test
+[ 1 2 3 ] [ callback-6 callback_test_1 1 2 3 ] unit-test
 
 : callback-7
     "void" { } [ yield "hi" print flush yield ] alien-callback ; compiled
 
-[ ] [ callback-7 callback_test_1 ] unit-test
+[ 1 2 3 ] [ callback-7 callback_test_1 1 2 3 ] unit-test
 
 : callback-8
     "void" { "int" "int" } [ / "x" set ] alien-callback ;

native/stack.c

@@ -28,7 +28,6 @@ void save_stacks(void)
 {
 	stack_chain->ds = ds;
 	stack_chain->cs = cs;
-	stack_chain->callframe = F;
 }
 
 /* called on entry into a compiled callback */