From 1ba672071ea902db811769264e03546cdd429c00 Mon Sep 17 00:00:00 2001
From: Jacob Matthews <jacobm@cs.uchicago.edu>
Date: Wed, 23 Apr 2008 17:05:38 +0000
Subject: [PATCH] move definition of resolver to the top to avoid compilation
 problems

svn: r9430
---
 collects/planet/resolver.ss | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/collects/planet/resolver.ss b/collects/planet/resolver.ss
index 73cd3a2c0e..5e15de83c7 100644
--- a/collects/planet/resolver.ss
+++ b/collects/planet/resolver.ss
@@ -162,6 +162,21 @@ subdirectory.
 
 #lang mzscheme
 
+(define resolver
+  (case-lambda
+    [(name) (void)]
+    [(spec module-path stx) 
+     (resolver spec module-path stx #t)]
+    [(spec module-path stx load?)
+     ;; ensure these directories exist
+     (make-directory* (PLANET-DIR))
+     (make-directory* (CACHE-DIR))
+     (establish-diamond-property-monitor)
+     (planet-resolve spec
+                     (current-module-declare-name) ;; seems more reliable than module-path in v3.99
+                     stx
+                     load?)]))
+
 (require mzlib/match
          mzlib/file
          mzlib/port
@@ -193,20 +208,7 @@ subdirectory.
 ;; if #f, will not install packages and instead give an error
 (define install? (make-parameter #t))
 
-(define resolver
-  (case-lambda
-    [(name) (void)]
-    [(spec module-path stx) 
-     (resolver spec module-path stx #t)]
-    [(spec module-path stx load?)
-     ;; ensure these directories exist
-     (make-directory* (PLANET-DIR))
-     (make-directory* (CACHE-DIR))
-     (establish-diamond-property-monitor)
-     (planet-resolve spec
-                     (current-module-declare-name) ;; seems more reliable than module-path in v3.99
-                     stx
-                     load?)]))
+
 
 ;; =============================================================================
 ;; DIAMOND PROPERTY STUFF