Changeset 20058 for src/Pugs/Compile.hs
- Timestamp:
- 03/04/08 22:06:31 (9 months ago)
- Files:
-
- 1 modified
-
src/Pugs/Compile.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Compile.hs
r17701 r20058 74 74 where 75 75 entries = sortBy padSort [ (cast var, readPadEntry ref) | (var, ref) <- padToList pad ] 76 canCompile (name@('&':_) , sym) = do77 ref<- sym76 canCompile (name@('&':_) :: String, sym) = do 77 (ref :: VRef) <- sym 78 78 case ref of 79 79 MkRef ICode{} -> do
