close port in compile-whole-program and compile-whole-library

original commit: ed4b7cff2e075c1da0880fc5e2f4491503f9f031

LOG

@@ -1756,3 +1756,6 @@
   argument-type-check error messages, for Windows multibyte->string
   and string->multibyte.
     primvars.ms
+- used with-object-file to restore accidentally dropped close-port in
+  compile-whole-program and compile-whole-library
+    compile.ss

s/compile.ss

@@ -1495,9 +1495,8 @@
 
   (define finish-compile
     (lambda (who msg ifn ofn hash-bang-line x1)
-      (let ([op ($open-file-output-port who ofn (file-options replace))])
-        (on-reset (delete-file ofn #f)
-          (on-reset (close-port op)
+      (with-object-file who ofn #f
+        (lambda (op)
           (with-coverage-file who ofn
             (lambda (source-table)
               (when hash-bang-line (put-bytevector op hash-bang-line))
@@ -1509,7 +1508,7 @@
                 (when source-table ($insert-profile-src! source-table x1))
                 (emit-header op (constant machine-type))
                 (let-values ([(rcinfo* final*) (compile-file-help1 x1 msg)])
-                    (compile-file-help2 op (list rcinfo*) (list final*)))))))))))
+                  (compile-file-help2 op (list rcinfo*) (list final*))))))))))
 
   (define write-wpo-file
     (lambda (who ofn ir*)