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

fixed PR 9336

Browse Source 
svn: r10062

original commit: b38215d4e9c4a10853fc39ff22692b8c8dfe8f10
This commit is contained in:
Robby Findler 2008-05-30 20:29:29 +00:00
parent a57f9793d7
commit ec38cb53e4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/scheme.ss
View File

@ -1768,7 +1768,7 @@
(let ([pref (let ([pref
(let loop ([pref pref][sel sel]) (let loop ([pref pref][sel sel])
(if (zero? sel) (if (zero? sel)
(cons sel (cdr pref)) (cons x (cdr pref))
(cons (car pref) (loop (cdr pref) (sub1 sel)))))]) (cons (car pref) (loop (cdr pref) (sub1 sel)))))])
(preferences:set 'framework:tabify pref)))) (preferences:set 'framework:tabify pref))))
(define-values (begin-list-box begin-regexp-text) (define-values (begin-list-box begin-regexp-text)