Changeset 10842 for src/Pugs/Compile

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/PIL2.hs

    r10747 r10842  
    135135    compile (Ann Pos{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
    136136    compile (Ann Prag{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
    137     compile (Ann Parens{} rest) = compile rest 
    138137    compile (Ann (Cxt cxt) rest) = enter cxt $ compile rest 
     138    compile (Ann _ rest) = compile rest 
    139139    compile (Sym _ "" rest) = compile rest 
    140140    compile (Stmts (Pad SOur _ exp) rest) = do 
    … …  
    197197    -- XXX: pragmas? 
    198198    compile (Ann Prag{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
    199     compile (Ann Parens{} rest) = compile rest 
     199    compile (Ann _ rest) = compile rest 
    200200    compile (Sym _ "" rest) = compile rest 
    201201    compile Noop = return PNoop 
    … …  
    273273    compile (Ann Pos{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
    274274    compile (Ann Prag{} rest) = compile rest 
    275     compile (Ann Parens{} rest) = compile rest 
    276275    compile (Ann (Cxt cxt) rest) = enter cxt $ compile rest 
     276    compile (Ann _ rest) = compile rest 
    277277    compile (Sym _ "" rest) = compile rest 
    278278    -- XXX: pragmas? 
    … …  
    372372    compile (Ann Pos{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
    373373    compile (Ann Prag{} rest) = compile rest 
    374     compile (Ann Parens{} rest) = compile rest 
    375374    compile (Ann (Cxt cxt) rest) = enter cxt $ compile rest 
     375    compile (Ann _ rest) = compile rest 
    376376    compile (Sym _ "" rest) = compile rest 
    377377    -- XXX: pragmas?