suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changed catch to call/ec

Browse Source 
original commit: b901c59a6c6435fcc1da59bf66409e7820246ff7
This commit is contained in:
Cormac Flanagan 1997-04-29 18:35:44 +00:00
parent 5058b1acfa
commit ecc9804e14
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/keys.ss
View File

@ -250,9 +250,9 @@
(lambda (edit event) (lambda (edit event)
(letrec ([find-nonwhite (letrec ([find-nonwhite
(lambda (pos d offset) (lambda (pos d offset)
(catch (call/ec
escape (lambda (escape)
(let ([max (if (> offset 0) (let ([max (if (> offset 0)
(send edit last-position) (send edit last-position)
-1)]) -1)])
(let loop ([pos pos]) (let loop ([pos pos])
@ -266,7 +266,7 @@
(escape pos)] (escape pos)]
[(char-whitespace? c) [(char-whitespace? c)
(loop (+ pos d))] (loop (+ pos d))]
[else pos])))))))]) [else pos]))))))))])
(let ([sel-start (send edit get-start-position)] (let ([sel-start (send edit get-start-position)]
[sel-end (send edit get-end-position)]) [sel-end (send edit get-end-position)])
(if (= sel-start sel-end) (if (= sel-start sel-end)
@ -909,4 +909,4 @@
(define global-keymap (make-object wx:keymap%)) (define global-keymap (make-object wx:keymap%))
(setup-global-keymap global-keymap)) (setup-global-keymap global-keymap))