diff options
author | 2010-04-10 13:12:42 -0400 | |
---|---|---|
committer | 2010-04-10 13:12:42 -0400 | |
commit | 4c4e85c928251ca36f28973f9589a291224fd556 (patch) | |
tree | a34b6db72b4e866b966ca09ddf38e49e5940cab5 /src | |
parent | dd3564faf90d4bb24631fb9b9afe11c0830f884a (diff) |
Constants are known
Diffstat (limited to 'src')
-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 |