Skip to content

Commit 8e4320b

Browse files
committed
Enable certificate debugger
1 parent 128afe9 commit 8e4320b

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

ML/Muntac.sml

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -131,8 +131,9 @@ fun main () =
131131
NONE => raise Fail (err_msg ^ " should be an integer")
132132
| SOME x => x
133133
fun int_to_impl n =
134-
if n < 1 orelse n > 5 then
135-
raise Fail "Implementation needs to be in the range 1 to 5"
134+
if n > 5 then
135+
raise Fail "Implementation needs to be in the range 0 to 5"
136+
else if n = 0 then Debug
136137
else if n = 1 then Impl1
137138
else if n = 2 then Impl2
138139
else if n = 3 then Impl3

0 commit comments

Comments
 (0)