From 45f3cb7ede7d3ed144e1b6f1d42cd8fbc8d6208f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 19 Apr 2005 02:31:36 +0000
Subject: [PATCH] .

original commit: 456a4831834c103d933961fbde5db29eef59b205
---
 collects/mzlib/os.ss | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/collects/mzlib/os.ss b/collects/mzlib/os.ss
index f9df068..262105b 100644
--- a/collects/mzlib/os.ss
+++ b/collects/mzlib/os.ss
@@ -1,9 +1,6 @@
 (module os mzscheme
   (require (lib "foreign.ss")) (unsafe!)
   
-  (provide gethostname
-	   getpid)
-
   (define BUFFER-SIZE 1024)
   (define (extract-terminated-string proc)
     (let ([s (make-bytes BUFFER-SIZE)])
@@ -47,6 +44,8 @@
 		       (bytes-set! s sz 0))
 		     #t))))))]
       [else #f]))
+
+  (provide gethostname)
   
   ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;; getpid
@@ -62,4 +61,6 @@
   (define (getpid)
     (case (system-type)
       [(macosx unix) ((force unix-getpid))]
-      [(windows) ((force windows-getpid))])))
+      [(windows) ((force windows-getpid))]))
+
+  (provide getpid))