diff options
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))) |