Fix 2 occurrences of map-to-for

This `map` operation can be replaced with a `for/list` loop.

drracket-core-lib/drracket/drracket.rkt

@@ -88,13 +88,12 @@
       (for/list ([x (in-list (find-relevant-directories (list id)))])
         (define proc (get-info/full x))
         (if proc
-            (map (λ (dirs)
-                   (apply build-path
-                          x
-                          (if (list? dirs)
-                              dirs
-                              (list dirs))))
-                 (proc id (λ () '())))
+            (for/list ([dirs (in-list (proc id (λ () '())))])
+              (apply build-path
+                     x
+                     (if (list? dirs)
+                         dirs
+                         (list dirs))))
             '()))))
 
    (define make-compilation-manager-load/use-compiled-handler

drracket-core-lib/drracket/sprof.rkt

@@ -138,12 +138,11 @@
       (set! clear-old-pr void)
       (define denom-ht (make-hasheq))
       (define filtered-gui-display-data
-        (map (λ (pr)
-               (let ([id (car pr)]
-                     [stacks (filter-stacks (cdr pr))])
-                 (for-each (λ (stack) (hash-set! denom-ht stack #t)) stacks)
-                 (cons id stacks)))
-             gui-display-data))
+        (for/list ([pr (in-list gui-display-data)])
+          (define id (car pr))
+          (define stacks (filter-stacks (cdr pr)))
+          (for-each (λ (stack) (hash-set! denom-ht stack #t)) stacks)
+          (cons id stacks)))
       (define denom-count (hash-count denom-ht))
       (let loop ([prs filtered-gui-display-data]
                  [first? #t]