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/coq/misc/External_Funs.v | |
| parent | 1f3ce79023d902d0145da38e878d991a6ba29236 (diff) | |
| parent | 7f7387c5519da00133ad557450695e6d6838f93c (diff) | |
Merge remote-tracking branch 'origin/main' into escherichia/error_catching
Diffstat (limited to 'tests/coq/misc/External_Funs.v')
| -rw-r--r-- | tests/coq/misc/External_Funs.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/coq/misc/External_Funs.v b/tests/coq/misc/External_Funs.v index faf91fef..a6832854 100644 --- a/tests/coq/misc/External_Funs.v +++ b/tests/coq/misc/External_Funs.v @@ -46,8 +46,8 @@ Definition custom_swap p <- core_mem_swap T x y st; let (st1, p1) := p in let (x1, y1) := p1 in - let back_'a := fun (ret : T) (st2 : state) => Return (st2, (ret, y1)) in - Return (st1, (x1, back_'a)) + let back := fun (ret : T) (st2 : state) => Return (st2, (ret, y1)) in + Return (st1, (x1, back)) . (** [external::test_custom_swap]: |