diff options
| author | Son Ho | 2024-04-04 15:48:25 +0200 |
|---|---|---|
| committer | Son Ho | 2024-04-04 15:48:25 +0200 |
| commit | a882e28134dc6c44e7a2b5b82eb42041e9a1f342 (patch) | |
| tree | 98a00a150d03b8088df62550a6d8ab0f23c0e779 /tests/lean/PoloniusList.lean | |
| parent | 1f3ce79023d902d0145da38e878d991a6ba29236 (diff) | |
| parent | 7f7387c5519da00133ad557450695e6d6838f93c (diff) | |
Merge remote-tracking branch 'origin/main' into escherichia/error_catching
Diffstat (limited to 'tests/lean/PoloniusList.lean')
| -rw-r--r-- | tests/lean/PoloniusList.lean | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/lean/PoloniusList.lean b/tests/lean/PoloniusList.lean index 59c557a0..c657237f 100644 --- a/tests/lean/PoloniusList.lean +++ b/tests/lean/PoloniusList.lean @@ -24,12 +24,12 @@ divergent def get_list_at_x else do let (l, get_list_at_x_back) ← get_list_at_x tl x - let back_'a := + let back := fun ret => do let tl1 ← get_list_at_x_back ret Result.ret (List.Cons hd tl1) - Result.ret (l, back_'a) + Result.ret (l, back) | List.Nil => Result.ret (List.Nil, Result.ret) end polonius_list |