Mercurial > urweb
comparison src/mono_shake.sml @ 1280:3d06e0f7a6f3
Initial version of equalKnown working for secret
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Tue, 27 Jul 2010 11:42:30 -0400 |
parents | e8d68fd8ed4b |
children | 60e19545841b |
comparison
equal
deleted
inserted
replaced
1279:4c367c8f5b2d | 1280:3d06e0f7a6f3 |
---|---|
65 PolClient e1 => e1 | 65 PolClient e1 => e1 |
66 | PolInsert e1 => e1 | 66 | PolInsert e1 => e1 |
67 | PolDelete e1 => e1 | 67 | PolDelete e1 => e1 |
68 | PolUpdate e1 => e1 | 68 | PolUpdate e1 => e1 |
69 | PolSequence e1 => e1 | 69 | PolSequence e1 => e1 |
70 | PolEqualKnown {table = e1, ...} => e1 | |
70 in | 71 in |
71 usedVars st e1 | 72 usedVars st e1 |
72 end | 73 end |
73 | (_, st) => st) (IS.empty, IS.empty) file | 74 | (_, st) => st) (IS.empty, IS.empty) file |
74 | 75 |