Changeset 10842 for src/Pugs/Compile.hs

Show
Ignore:
Timestamp:
06/23/06 01:54:15 (2 years ago)
Author:
audreyt
Message:

* Introduce the (Ann Decl) form to eventually support this special form:

state $x = 4;

which must expand to

FIRST { state $x = 4 }

not sure if it's a parsetime or runtime distinction, and not sure
if bindings get the same treatment:


state $x := 4;

TimToady?? :)

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Compile.hs

    r10747 r10842  
    144144    compile (Ann Pos{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
    145145    compile (Ann Prag{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
    146     compile (Ann Parens{} rest) = compile rest 
    147146    compile (Ann (Cxt cxt) rest) = enter cxt $ compile rest 
     147    compile (Ann _ rest) = compile rest 
    148148    compile (Sym _ "" rest) = compile rest 
    149149    compile (Stmts (Pad SOur _ exp) rest) = do 
    … …  
    206206    -- XXX: pragmas? 
    207207    compile (Ann Prag{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
    208     compile (Ann Parens{} rest) = compile rest 
     208    compile (Ann _ rest) = compile rest 
    209209    compile (Sym _ "" rest) = compile rest 
    210210    compile Noop = return PNoop 
    … …  
    282282    compile (Ann Pos{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
    283283    compile (Ann Prag{} rest) = compile rest 
    284     compile (Ann Parens{} rest) = compile rest 
    285284    compile (Ann (Cxt cxt) rest) = enter cxt $ compile rest 
     285    compile (Ann _ rest) = compile rest 
    286286    compile (Sym _ "" rest) = compile rest 
    287287    -- XXX: pragmas? 
    … …  
    381381    compile (Ann Pos{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
    382382    compile (Ann Prag{} rest) = compile rest 
    383     compile (Ann Parens{} rest) = compile rest 
    384383    compile (Ann (Cxt cxt) rest) = enter cxt $ compile rest 
     384    compile (Ann _ rest) = compile rest 
    385385    compile (Sym _ "" rest) = compile rest 
    386386    -- XXX: pragmas?