diff options
author | Adam Chlipala <adamc@hcoop.net> | 2010-04-10 13:12:42 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2010-04-10 13:12:42 -0400 |
commit | 7d88a1ff974ad5eb76dd12f63d9063d8bd48583b (patch) | |
tree | a34b6db72b4e866b966ca09ddf38e49e5940cab5 /src/iflow.sml | |
parent | 47ffafdfbbee9373b99a1284f0ac8b2cadc7652d (diff) |
Constants are known
Diffstat (limited to 'src/iflow.sml')
-rw-r--r-- | src/iflow.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/iflow.sml b/src/iflow.sml index b3f1a6eb..af45ea53 100644 --- a/src/iflow.sml +++ b/src/iflow.sml @@ -510,7 +510,7 @@ fun representative (db : database, e) = val r = ref (Node {Rep = ref NONE, Cons = ref SM.empty, Variety = Prim p, - Known = ref false}) + Known = ref true}) in #Consts db := CM.insert (!(#Consts db), p, r); r |