--* From postmaster%watson.vnet.ibm.com@yktvmv.watson.ibm.com  Thu Jun  3 16:48:28 1993
--* Received: from yktvmv2.watson.ibm.com by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA15219; Thu, 3 Jun 1993 16:48:28 -0400
--* X-External-Networks: yes
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 5879; Thu, 03 Jun 93 16:49:04 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.SANTAS.NOTE.YKTVMV.7335.Jun.03.16:49:03.-0400>
--*           for asbugs@watson; Thu, 03 Jun 93 16:49:03 -0400
--* Received: from bernina.ethz.ch by watson.ibm.com (IBM VM SMTP V2R3) with TCP;
--*    Thu, 03 Jun 93 16:49:02 EDT
--* Received: from neptune by bernina.ethz.ch with SMTP inbound id <19341-0@bernina.ethz.ch>; Thu, 3 Jun 1993 22:48:58 +0200
--* From: Philip Santas <santas@inf.ethz.ch>
--* Received: from rutishauser.inf.ethz.ch (rutishauser-gw.inf.ethz.ch) by neptune id AA28924; Thu, 3 Jun 93 22:48:55 +0200
--* Date: Thu, 3 Jun 93 22:48:54 +0200
--* Message-Id: <9306032048.AA10838@rutishauser.inf.ethz.ch>
--* Received: from ru7.inf.ethz.ch.rutishauser by rutishauser.inf.ethz.ch id AA10838; Thu, 3 Jun 93 22:48:54 +0200
--* To: asbugs@watson.ibm.com
--* Subject: where
--* Cc: bronstein

--@ Fixed  by: PAB Tue Oct 12 21:08:25 1993
--@ Tested by: where1.as
--@ Summary:   fixed in latest version



--The following reports a bug in foam.c

--Philip

----------------------------------
#include "aslib.as"

SI ==> SingleInteger
import SI

Pack1: with
    a:SI
    goo: () -> SI
 == add
     a:SI==1
     goo():SI == foo() where
        foo():SI == a+1

import Pack1
print(goo())()