Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site digi-g.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!mhuxr!ihnp4!stolaf!umn-cs!digi-g!mark
From: mark@digi-g.UUCP (Mark Mendel)
Newsgroups: net.sources.bugs
Subject: xlisp bug
Message-ID: <537@digi-g.UUCP>
Date: Tue, 2-Apr-85 16:03:18 EST
Article-I.D.: digi-g.537
Posted: Tue Apr  2 16:03:18 1985
Date-Received: Sat, 6-Apr-85 02:42:18 EST
Distribution: net
Organization: Digigraphic Systems Corp., Mpls, MN
Lines: 29

The consists of contexts not being popped when a throw occurs!
This occurs, for instance, when an error occurs within a non-error cathing
context, like a tagblock:

	(prog () (*unbound*))

causes core dumps.

The fix:

*** xljump.c	Tue Apr  2 14:52:44 1985
--- =orig/xljump.c	Thu Mar 21 09:41:51 1985
***************
*** 39,45
      xlunbind(cptr->c_xlenv);
      xlnewenv = cptr->c_xlnewenv;
      xltrace = cptr->c_xltrace;
-     xlcontext = cptr;
  
      /* call the handler */
      longjmp(cptr->c_jmpbuf,type);

--- 39,44 -----
      xlunbind(cptr->c_xlenv);
      xlnewenv = cptr->c_xlnewenv;
      xltrace = cptr->c_xltrace;
  
      /* call the handler */
      longjmp(cptr->c_jmpbuf,type);