Ignore:
Timestamp:
Aug 15, 2003, 5:30:23 PM (17 years ago)
Author:
orlov
Message:
  • Fixed $iter compilation.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/rfp_vars.rf

    r1201 r1231  
    144144
    145145
     146
     147$func Reset-Var e = e;
     148
     149Vars-Reset e.vars = <Map &Reset-Var (e.vars)> : e;
     150
     151
     152Reset-Var t.var =
     153  <? &State> : $r e1 (t.var e (Decl s.decl) e) e2,
     154  <Store &State e1 e2>,
     155  <Normalize-Info (Instantiated? True) (Decl s.decl) t.var>;
     156
     157
     158
    146159$func Print-Var e = e;
    147160
     
    187200
    188201
    189 
    190 //!Declared? t.var =
    191 //!     <? &State> : $r e (t.var tag t.min t.max s.decl e.rest) e = <Box? s.decl>;
    192 
    193 
    194 //!$func? Decl-Box t.var = s.box;
    195 
    196 //!Decl-Box t.var =
    197 //!     <? &State> : $r e (t.var tag t.min t.max s.decl e.rest) e = <Box? s.decl>, s.decl;
    198 
    199 
    200 //!Instantiated? t.var =
    201 //! <Var? t.var>,
    202 //! <? &State> : $r e (t.var tag t.min t.max s.decl s.inst) e = s.inst : Instantiated;
    203202
    204203
Note: See TracChangeset for help on using the changeset viewer.