Changeset 3372 for src/Pugs/Eval.hs
- Timestamp:
- 05/18/05 02:43:25 (4 years ago)
- svk:copy_cache_prev:
- 4945
- Files:
-
- 1 modified
-
src/Pugs/Eval.hs (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Eval.hs
r3340 r3372 87 87 -- Evaluation --------------------------------------------------------------- 88 88 89 -- debug :: (Pretty a) => String-> String -> a -> Eval ()89 debug :: Pretty a => String -> (String -> String) -> String -> a -> Eval () 90 90 debug key fun str a = do 91 91 rv <- asks envDebug … … 152 152 (retVal $ val) 153 153 154 addGlobalSym :: (Pad -> Pad) -> Eval () 154 155 addGlobalSym newSym = do 155 156 glob <- asks envGlobal … … 997 998 | otherwise = False 998 999 1000 toGlobal :: String -> String 999 1001 toGlobal name 1000 1002 | (sigil, identifier) <- break (\x -> isAlpha x || x == '_') name … … 1004 1006 1005 1007 1008 arityMatch :: VCode -> Int -> Int -> Maybe VCode 1006 1009 arityMatch sub@MkCode{ subAssoc = assoc, subParams = prms } argLen argSlurpLen 1007 1010 | assoc == "list" || assoc == "chain"
