remove unnecessary thread creation & remove commented out code

collects/drracket/private/expanding-place.rkt

@@ -111,9 +111,8 @@
                                raise-hopeless-syntax-error))
            (log-info "expanding-place.rkt: 09 starting expansion")
            (define expanded (expand transformed-stx))
-           (let ([reg (namespace-module-registry (current-namespace))])
-             (parameterize ([current-custodian orig-cust])
-               (thread (λ () (channel-put old-registry-chan reg)))))
+           (channel-put old-registry-chan 
+                        (namespace-module-registry (current-namespace)))
            (log-info "expanding-place.rkt: 10 expanded")
            (define handler-results
              (for/list ([handler (in-list handlers)])

collects/drracket/private/syncheck/traversals.rkt

@@ -521,26 +521,7 @@
                                   phase
                                   user-namespace
                                   user-directory
-                                  #f))
-            
-            #;
-            (connect-identifier var
-                                (make-id-set) ;; dummy; always empty
-                                unused/phases
-                                phase-to-requires
-                                -1
-                                user-namespace
-                                user-directory
-                                #f)
-            #;
-            (connect-identifier var
-                                (make-id-set) ;; dummy; always empty
-                                unused/phases
-                                phase-to-requires
-                                #f
-                                user-namespace
-                                user-directory
-                                #f)))
+                                  #f))))
         
         (for ([(level tops) (in-hash phase-to-tops)])
           (define binders (lookup-phase-to-mapping phase-to-binders level))