--* From postmaster%watson.vnet.ibm.com@yktvmv.watson.ibm.com  Tue Oct  5 07:00:49 1993
--* Received: from yktvmv2.watson.ibm.com by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA15932; Tue, 5 Oct 1993 07:00:49 -0400
--* X-External-Networks: yes
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 9473; Tue, 05 Oct 93 07:06:54 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.BRONSTEI.NOTE.YKTVMV.4497.Oct.05.07:06:53.-0400>
--*           for asbugs@watson; Tue, 05 Oct 93 07:06:54 -0400
--* Received: from bernina.ethz.ch by watson.ibm.com (IBM VM SMTP V2R3) with TCP;
--*    Tue, 05 Oct 93 07:06:52 EDT
--* Received: from neptune.ethz.ch by bernina.ethz.ch with SMTP inbound id <513-0@bernina.ethz.ch>; Tue, 5 Oct 1993 12:06:15 +0100
--* From: Manuel Bronstein <bronstei@inf.ethz.ch>
--* Received: from rutishauser.inf.ethz.ch (rutishauser-gw.inf.ethz.ch) by neptune id AA05297; Tue, 5 Oct 93 12:06:01 +0100
--* Date: Tue, 5 Oct 93 12:06:00 +0100
--* Message-Id: <9310051106.AA21400@rutishauser.inf.ethz.ch>
--* Received: from vinci.inf.ethz.ch.rutishauser by rutishauser.inf.ethz.ch id AA21400; Tue, 5 Oct 93 12:06:00 +0100
--* To: asbugs@watson.ibm.com
--* Subject: Runtime segmentation fault -- compiles ok [bang.as][v29.0]

--@ Fixed  by:  SSD   Wed Sep 28 11:48:05 EDT 1994 
--@ Tested by:  none 
--@ Summary:    Improvements in code generation for exits in sequences regarding placement of domain initializations. 

------------ bang.as ------------
#include "aslib.as"
import SingleInteger
print(true => 4; 5)()

-- vinci.inf.ethz.ch{bronstei} 57: asharp -Fx bang.as
-- vinci.inf.ethz.ch{bronstei} 58: bang
-- Segmentation fault

#if 0
 PI: bad foam generation bug. Looking in the foam prog. I find:

          (If (Lex 0 3 true) 0)
          (Def
            (Lex 0 7 integer)
            (Cast
              Clos
              (CCall
                Word
                (Glo 4 domainGetExport!)
                (Lex 0 9 dom)
                (SInt 477900237)
                (SInt 332925070))))
          (Set (Loc 0) (CCall Word (Lex 0 7 integer) (Arr Char 53)))
          (Goto 1)
          (Label 0)
          (Set (Loc 0) (CCall Word (Lex 0 7 integer) (Arr Char 52)))
          (Label 1)


The problem is that when the first if cause a jump to (label 0) the (lex 0 7
integer) lexvar hasn't been defined yet.

#endif