diff options
Diffstat (limited to 'codegen.sml')
| -rw-r--r-- | codegen.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/codegen.sml b/codegen.sml index 67b2d30..0bd86be 100644 --- a/codegen.sml +++ b/codegen.sml @@ -162,7 +162,7 @@ struct | Syntax.CPrimop (Syntax.PEq, [x, y], [res], [k]) => Syntax.OEq (translate res, translateVal x, translateVal y) :: go k | Syntax.CPrimop (Syntax.PIf, [b], [], [k1, k2]) => let - val trueLabel = Gensym.new () + val trueLabel = GenSym.new () in Syntax.OIf (translateVal b, trueLabel) :: go k2 |