diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2020-03-21 22:16:02 +0100 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2020-03-21 22:16:02 +0100 |
| commit | d19b14c8349ce8cacb62619ab68953265daeeca7 (patch) | |
| tree | 9aacc6f9378ca69951c87232b3a7526fef2f2054 /tests/inferior.scm | |
| parent | 680b56116a4840a281a45cb130fd45d6d3d46c56 (diff) | |
| parent | ee4c927f33a1d3b01cf36be3c74227f6b7fd69ff (diff) | |
| download | patches-d19b14c8349ce8cacb62619ab68953265daeeca7.tar patches-d19b14c8349ce8cacb62619ab68953265daeeca7.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'tests/inferior.scm')
| -rw-r--r-- | tests/inferior.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/inferior.scm b/tests/inferior.scm index 5236a3f3e2..5fddb1fd13 100644 --- a/tests/inferior.scm +++ b/tests/inferior.scm @@ -68,6 +68,9 @@ (guard (c ((inferior-exception? c) (close-inferior inferior) (and (eq? inferior (inferior-exception-inferior c)) + (match (inferior-exception-stack c) + (((_ (files lines columns)) ..1) + (member "guix/repl.scm" files))) (inferior-exception-arguments c)))) (inferior-eval '(throw 'a 'b 'c 'd) inferior) 'badness))) |