Skip to content

Commit a7d33fc

Browse files
committed
Replace let! with let
Since we test for failure later, the use of let! is not necessary here
1 parent e2d1fcf commit a7d33fc

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

mechanization/spec/Semantics.v

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -512,15 +512,15 @@ Module Semantics. Section main.
512512
(*>> 9. If greedy is false, then <<*)
513513
if greedy is false then
514514
(*>> a. Let z be c(x). <<*)
515-
let! z =<< c x in
515+
let z := c x in
516516
(*>> b. If z is not failure, return z. <<*)
517517
if z != failure
518518
then z else
519519
(*>> c. Return m(xr, d). <<*)
520520
m xr d
521521
else
522522
(*>> 10. Let z be m(xr, d). <<*)
523-
let! z =<< m xr d in
523+
let z := m xr d in
524524
(*>> 11. If z is not failure, return z. <<*)
525525
if z != failure
526526
then z else

0 commit comments

Comments
 (0)