From ecc9804e14257c254325c0c60e88ae98a878abd3 Mon Sep 17 00:00:00 2001 From: Cormac Flanagan Date: Tue, 29 Apr 1997 18:35:44 +0000 Subject: [PATCH] Changed catch to call/ec original commit: b901c59a6c6435fcc1da59bf66409e7820246ff7 --- collects/mred/keys.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/mred/keys.ss b/collects/mred/keys.ss index 58095347..7472b6c4 100644 --- a/collects/mred/keys.ss +++ b/collects/mred/keys.ss @@ -250,9 +250,9 @@ (lambda (edit event) (letrec ([find-nonwhite (lambda (pos d offset) - (catch - escape - (let ([max (if (> offset 0) + (call/ec + (lambda (escape) + (let ([max (if (> offset 0) (send edit last-position) -1)]) (let loop ([pos pos]) @@ -266,7 +266,7 @@ (escape pos)] [(char-whitespace? c) (loop (+ pos d))] - [else pos])))))))]) + [else pos]))))))))]) (let ([sel-start (send edit get-start-position)] [sel-end (send edit get-end-position)]) (if (= sel-start sel-end) @@ -909,4 +909,4 @@ (define global-keymap (make-object wx:keymap%)) - (setup-global-keymap global-keymap)) \ No newline at end of file + (setup-global-keymap global-keymap))