Effects analysis sees match-error, throw-bad-structs as bailouts

[bpt/guile.git] / module / srfi / srfi-9.scm

diff --git a/module/srfi/srfi-9.scm b/module/srfi/srfi-9.scm
index 7275eaf..355362a 100644 (file)
--- a/module/srfi/srfi-9.scm
+++ b/module/srfi/srfi-9.scm
@@ -144,6 +144,7 @@
   (display ">" p))
 
 (define (throw-bad-struct s who)
+  #((definite-bailout? . #t))
   (throw 'wrong-type-arg who
          "Wrong type argument: ~S" (list s)
          (list s)))