Changeset 21763 for src/Pugs/Eval.hs

Show
Ignore:
Timestamp:
08/04/08 10:39:26 (4 months ago)
Author:
lwall
Message:

s/q:code/quasi/ plus various t/ buglets

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Eval.hs

    r21673 r21763  
    899899        evalExp $ Syn "=" [Val lhs, App (_Var op) Nothing [Val val, rhsExp]] 
    900900 
    901 reduceSyn "q:code" [ body ] = expToEvalVal body 
     901reduceSyn "quasi" [ body ] = expToEvalVal body 
    902902 
    903903reduceSyn "CCallDyn" (Val (VStr quant):methExp:invExp:args) = do