removed one unused use of set-c{dr}!

svn: r2202

collects/framework/private/handler.ss

@@ -204,7 +204,7 @@
       (define (set-recent-position filename start end)
         (let ([recent-items
                (filter (λ (x) (string=? (path->string (car x))
-                                             (path->string filename)))
+                                        (path->string filename)))
                        (preferences:get 'framework:recently-opened-files/pos))])
           (unless (null? recent-items)
             (let ([recent-item (car recent-items)])

collects/framework/private/panel.ss

@@ -14,16 +14,6 @@
       (import [icon : framework:icon^]
               mred^)
       
-      
-      (define (list-set! _list _i ele)
-        (let loop ([lst _list]
-                   [i _i])
-          (cond
-            [(null? lst) (error 'list-set! "index too large for list, args: ~e ~e ~e"
-                                _list _i ele)]
-            [(zero? i) (set-car! lst ele)]
-            [else (loop (cdr lst) (- i 1))])))
-      
       (define single<%> (interface (area-container<%>) active-child))
       (define single-mixin
         (mixin (area-container<%>) (single<%>)