Changeset 3538 for src/Pugs/Prim/Eval.hs
- Timestamp:
- 05/20/05 23:49:16 (4 years ago)
- svk:copy_cache_prev:
- 5107
- Files:
-
- 1 modified
-
src/Pugs/Prim/Eval.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Prim/Eval.hs
r3296 r3538 32 32 op1EvalHaskell cv = do 33 33 str <- fromVal cv :: Eval String 34 ret <- liftIO (evalHaskell str) 35 glob <- askGlobal 36 errSV <- findSymRef "$!" glob 37 case ret of 38 Right str -> do 39 writeRef errSV VUndef 40 return $ VStr str 41 Left err -> do 42 writeRef errSV (VStr err) 43 retEmpty 34 evalHaskell str 44 35 45 36 opEval :: Maybe Bool -> String -> String -> Eval Val
