Commit fa2c52837778158e6b4ef1cceb26cb552d8fce3e - Robin

Fix evalAll in face of abort values, but there must be a better way. Chris Pressey 4 years ago

1 changed file(s) with 3 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all

-1

src/Language/Robin/Builtins.hs less more

22	22	cc $ List $ reverse acc
23	23	evalAll env (head:tail) acc cc =
24	24	eval env head (\value ->
25		evalAll env tail (value:acc) cc)
	25	case value of
	26	Abort _ -> cc value
	27	_ -> evalAll env tail (value:acc) cc)
26	28
27	29	-- formals actuals origActuals env continuation
28	30	evalArgs :: [Expr] -> [Expr] -> [Expr] -> Env -> (Env -> Expr) -> Expr