From 15df344720ceb687d9d058d96acacc67627c5c02 Mon Sep 17 00:00:00 2001
From: Keisuke Nishida <kxn30@po.cwru.edu>
Date: Fri, 6 Apr 2001 10:06:32 +0000
Subject: [PATCH] *** empty log message ***

---
 src/vm_scheme.c |  1 -
 src/vm_system.c | 10 +---------
 2 files changed, 1 insertion(+), 10 deletions(-)

diff --git a/src/vm_scheme.c b/src/vm_scheme.c
index aa150d176..019f65936 100644
--- a/src/vm_scheme.c
+++ b/src/vm_scheme.c
@@ -169,7 +169,6 @@ VM_DEFINE_FUNCTION (vector, "vector", -1)
 {
   ARGSN (n);
   POP_LIST (n);
-  SYNC_BEFORE_GC ();
   *sp = scm_vector (*sp);
   NEXT;
 }
diff --git a/src/vm_system.c b/src/vm_system.c
index bf8d990b5..6398f4e02 100644
--- a/src/vm_system.c
+++ b/src/vm_system.c
@@ -85,12 +85,6 @@ VM_DEFINE_INSTRUCTION (void, "void", 0, 0, 1)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (mark, "mark", 0, 0, 1)
-{
-  PUSH (SCM_UNDEFINED);
-  NEXT;
-}
-
 VM_DEFINE_INSTRUCTION (make_true, "make-true", 0, 0, 1)
 {
   PUSH (SCM_BOOL_T);
@@ -318,7 +312,6 @@ VM_DEFINE_INSTRUCTION (call, "call", 1, -1, 1)
   if (!SCM_FALSEP (scm_procedure_p (program)))
     {
       POP_LIST (nargs);
-      SYNC_BEFORE_GC ();
       *sp = scm_apply (program, *sp, SCM_EOL);
       program = SCM_VM_FRAME_PROGRAM (fp);
       NEXT;
@@ -401,7 +394,6 @@ VM_DEFINE_INSTRUCTION (tail_call, "tail-call", 1, -1, 1)
   if (!SCM_FALSEP (scm_procedure_p (program)))
     {
       POP_LIST (nargs);
-      SYNC_BEFORE_GC ();
       *sp = scm_apply (program, *sp, SCM_EOL);
       program = SCM_VM_FRAME_PROGRAM (fp);
       goto vm_return;
@@ -433,7 +425,7 @@ VM_DEFINE_INSTRUCTION (return, "return", 0, 0, 1)
   RETURN_HOOK ();
   FREE_FRAME ();
 
-  /* Cache the last program */
+  /* Restore the last program */
   program = SCM_VM_FRAME_PROGRAM (fp);
   CACHE_PROGRAM ();
   PUSH (ret);