From 27d43e3cf72128bbf2ad4f4ee24585da5e238395 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sat, 11 Oct 2008 12:01:25 +0200
Subject: [PATCH] relax an assertion -- the test suite completes without
 aborting, whee

* libguile/vm-i-system.c (call/cc, goto/cc): Don't assert that ip matches
  vp->ip, because vp->ip is not restored by vm_reset_stack, and indeed
  it's re-set to 0 by `halt'. But still, perhaps reset_stack and halt
  should indeed reset vp->ip.
---
 libguile/vm-i-system.c | 2 --
 1 file changed, 2 deletions(-)

diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index 33503f290..251239493 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -908,7 +908,6 @@ VM_DEFINE_INSTRUCTION (call_cc, "call/cc", 0, 1, 1)
     }
   ASSERT (sp == vp->sp);
   ASSERT (fp == vp->fp);
-  ASSERT (ip == vp->ip);
   else if (SCM_VALUESP (cont))
     {
       /* multiple values returned to continuation */
@@ -936,7 +935,6 @@ VM_DEFINE_INSTRUCTION (goto_cc, "goto/cc", 0, 1, 1)
   cont = scm_make_continuation (&first);
   ASSERT (sp == vp->sp);
   ASSERT (fp == vp->fp);
-  ASSERT (ip == vp->ip);
   if (first) 
     {
       PUSH (proc);