--* From IGLIO%WATSON.vnet.ibm.com@yktvmv.watson.ibm.com  Tue Aug  9 20:36:34 1994
--* Received: from yktvmv-ob.watson.ibm.com by asharp.watson.ibm.com (AIX 3.2/UCB 5.64/930311)
--*           id AA14904; Tue, 9 Aug 1994 20:36:34 -0400
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 5377; Tue, 09 Aug 94 20:36:38 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.IGLIO.NOTE.VAGENT2.3211.Aug.09.20:36:38.-0400>
--*           for asbugs@watson; Tue, 09 Aug 94 20:36:38 -0400
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 3207; Tue, 9 Aug 1994 20:36:38 EDT
--* Received: from galois.watson.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with TCP; Tue, 09 Aug 94 20:36:37 EDT
--* Received: by galois.watson.ibm.com (AIX 3.2/UCB 5.64/4.03)
--*           id AA16813; Tue, 9 Aug 1994 20:31:48 -0400
--* Date: Tue, 9 Aug 1994 20:31:48 -0400
--* From: iglio@galois.watson.ibm.com
--* Message-Id: <9408100031.AA16813@galois.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: [3][genfoam] true => false causes interactive mode crash.

--@ Fixed  by:  SSD   Wed Aug 10 00:17:56 EDT 1994 
--@ Tested by:  none 
--@ Summary:    Handling singleton sequences correctly in gen0DefSequence. Handling runaway exits correctly in tibupExit. 


-- Command line: asharp -gloop
-- Version: 0.36.2
-- Original bug file name: canc.as

-- if you type this in -gloop mode you get the bug

#include "aslib"

true => false