abort-to-prompt* instead of @abort

[bpt/guile.git] / module / ice-9 / boot-9.scm

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index f1fd041..82a0875 100644 (file)
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -64,7 +64,7 @@
 (define (call-with-prompt tag thunk handler)
   (@prompt tag (thunk) handler))
 (define (abort-to-prompt tag . args)
-  (@abort tag args))
+  (abort-to-prompt* tag args))
 
 
 ;; Define catch and with-throw-handler, using some common helper routines and a