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

...

Browse Source 
original commit: 66b36519c8735739e56678ffbf939069c1dcca8c
This commit is contained in:
Robby Findler 1999-02-16 16:18:47 +00:00
parent 5ebcb7bf53
commit 455a0456e6
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/framework/finder.ss
View File

@ -362,16 +362,12 @@
; look for letter at beginning of a filename ; look for letter at beginning of a filename
[(char? code) [(char? code)
(letrec (let loop ([pos (add1 curr-pos)])
([loop (unless (>= pos num-items)
(lambda (pos)
(unless
(>= pos num-items)
(let ([first-char (string-ref (get-string pos) 0)]) (let ([first-char (string-ref (get-string pos) 0)])
(if (char=? code first-char) (if (char=? code first-char)
(set-selection-and-edit pos) (set-selection-and-edit pos)
(loop (add1 pos))))))]) (loop (add1 pos))))))]
(loop (add1 curr-pos)))]
; movement keys ; movement keys