svm: Fixed closure gc-flip.

The new compiled closures were unusable after a gc-flip.  The first
(often only) target entry was not scanned.  compiled_closure_entry is
not used when !EMBEDDED_CLOSURE_ADDRS_P.

diff --git a/src/microcode/cmpintmd/svm1.c b/src/microcode/cmpintmd/svm1.c
index 314391786e7c47cd6f126e35e05862b35436b726..ee6228a77653cc9d7e06d45bbeafc06be9c619ea 100644 (file)
--- a/src/microcode/cmpintmd/svm1.c
+++ b/src/microcode/cmpintmd/svm1.c
@@ -227,15 +227,9 @@ compiled_closure_count (SCHEME_OBJECT * block)
 insn_t *
 compiled_closure_start (SCHEME_OBJECT * block)
 {
-  return (((insn_t *) block) + CLOSURE_ENTRY_OFFSET);
+  return (((insn_t *) block) + CLOSURE_ENTRY_START);
 }
 
-insn_t *
-compiled_closure_entry (insn_t * start)
-{
-  return start;
-}
-\f
 insn_t *
 compiled_closure_next (insn_t * start)
 {