.

original commit: 18323b0c0dc832703cb5b9dfb78acc37f67bf791

collects/mzlib/include.ss

@@ -1,6 +1,7 @@
 
 (module include mzscheme
   (require-for-syntax (lib "stx.ss" "syntax")
+		      (lib "path-spec.ss" "syntax")
 		      "private/increader.ss")
   (require (lib "etc.ss"))
 
@@ -14,13 +15,7 @@
       (syntax-case stx ()
 	[(_ orig-stx ctx loc fn reader)
 	 ;; Parse the file name
-	 (let ([file
-		(syntax-case* (syntax fn) (build-path) module-or-top-identifier=?
-		  [fn
-		   (string? (syntax-e (syntax fn)))
-		   (syntax-e (syntax fn))]
-		  [(build-path elem1 elem ...)
-		   (apply build-path (syntax-object->datum (syntax (elem1 elem ...))))])]
+	 (let ([c-file (resolve-path-spec (syntax fn) (syntax loc) (syntax orig-stx) #'build-path)]
 	       [ctx (syntax ctx)]
 	       [loc (syntax loc)]
 	       [reader (syntax reader)]
@@ -43,29 +38,6 @@
 		"reader is not a procedure of two arguments"
 		orig-stx))
 
-	     ;; Complete the file name
-	     (let ([c-file
-		    (if (complete-path? file)
-			file
-			(path->complete-path
-			 file
-			 (cond
-			  ;; Src of include expression is a path?
-			  [(and (string? (syntax-source loc))
-				(complete-path? (syntax-source loc)))
-			   (let-values ([(base name dir?) 
-					 (split-path (syntax-source loc))])
-			     (if dir?
-				 (syntax-source loc)
-				 base))]
-			  ;; Load relative?
-			  [(current-load-relative-directory)]
-			  ;; Current directory
-			  [(current-directory)]
-			  [else (raise-syntax-error
-				 #f
-				 "can't determine a base path"
-				 orig-stx)])))])
 	     ;; Open the included file
 	     (let ([p (with-handlers ([not-break-exn?
 				       (lambda (exn)
@@ -123,7 +95,7 @@
 		   (datum->syntax-object
 		    (quote-syntax here)
 		    `(begin ,@lexed-content)
-		      orig-stx)))))))]))
+		    orig-stx))))))]))
     
     (define (check-fn-form fn stx)
       ;; Check form of fn: