Permalink
Browse files

fix acknowledgement of continuations

  • Loading branch information...
1 parent ef6ab04 commit e232b94b77d5498ea1b839531ae390b1e4cb88bd @hugoduncan hugoduncan committed Mar 30, 2010
Showing with 10 additions and 7 deletions.
  1. +10 −7 src/swank/core.clj
View
@@ -265,17 +265,20 @@ values."
(throw *debug-abort-exception*)))
(debug-continue-exception? t)
- (throw t)
+ (do
+ (send-to-emacs `(:return ~(thread-name (current-thread)) (:abort) ~id))
+ (throw t))
:else
(do
(set! *e t)
- (sldb-debug
- nil
- (if *debug-swank-clojure* t (.getCause t))
- id)
- ;; reply with abort
- (send-to-emacs `(:return ~(thread-name (current-thread)) (:abort) ~id)))))))
+ (try
+ (sldb-debug
+ nil
+ (if *debug-swank-clojure* t (.getCause t))
+ id)
+ ;; reply with abort
+ (finally (send-to-emacs `(:return ~(thread-name (current-thread)) (:abort) ~id)))))))))
(defn- add-active-thread [thread]
(dosync

0 comments on commit e232b94

Please sign in to comment.