Commit 116e4e36 authored by's avatar
Browse files

Comments only

parent 1b1c97c9
......@@ -496,6 +496,9 @@ It returns True iff
without raising an exception,
without causing a side effect (e.g. writing a mutable variable)
NB: if exprIsHNF e, then exprOkForSpecuation e
let x = case y# +# 1# of { r# -> I# r# }
in E
......@@ -621,7 +624,7 @@ exprIsHNF other = False
-- There is at least one value argument
app_is_value (Var fun) args
| isDataConWorkId fun -- Constructor apps are values
| isDataConWorkId fun -- Constructor apps are values
|| idArity fun > valArgCount args -- Under-applied function
= check_args (idType fun) args
app_is_value (App f a) as = app_is_value f (a:as)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment