gnu: komikku: Update to 0.20.0.

[jackhill/guix/guix.git] / tests / inferior.scm

diff --git a/tests/inferior.scm b/tests/inferior.scm
index 5236a3f..5fddb1f 100644 (file)
--- 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)))