Changeset 3538 for src/Pugs/Prim.hs
- Timestamp:
- 05/20/05 23:49:16 (4 years ago)
- svk:copy_cache_prev:
- 5107
- Files:
-
- 1 modified
-
src/Pugs/Prim.hs (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Prim.hs
r3532 r3538 472 472 op1 other = \_ -> fail ("Unimplemented unaryOp: " ++ other) 473 473 474 op1Return :: Eval Val -> Eval Val 474 475 op1Return action = do 475 476 depth <- asks envDepth … … 480 481 _ -> fail $ "cannot return() from a " ++ pretty (subType sub) 481 482 483 op1Yield :: Eval Val -> Eval Val 482 484 op1Yield action = do 483 485 depth <- asks envDepth … … 490 492 action 491 493 494 op1ShiftOut :: Val -> Eval Val 492 495 op1ShiftOut v = shiftT . const $ do 493 496 evl <- asks envEval
