* boot-9.scm (load-compiled): New variable, initialized in the VM.

(try-module-autoload): Try loading compiled modules if applicable.

ice-9/ChangeLog

@@ -1,3 +1,8 @@
+2001-04-15  Keisuke Nishida  <kxn30@po.cwru.edu>
+
+	* boot-9.scm (load-compiled): New variable, initialized in the VM.
+	(try-module-autoload): Try loading compiled modules if applicable.
+
 2001-04-15  Keisuke Nishida  <kxn30@po.cwru.edu>
 
 	* boot-9.scm (call-with-deprecation): New procedure.

ice-9/boot-9.scm

@@ -1727,6 +1727,10 @@
     (module-constructor #() '() b #f #f name 'autoload
 			'() (make-weak-value-hash-table 31) 0)))
 
+;;; {Compiled module}
+
+(define load-compiled #f)
+
 
 ;;; {Autoloading modules}
 
@@ -1743,14 +1747,20 @@
     (resolve-module dir-hint-module-name #f)
     (and (not (autoload-done-or-in-progress? dir-hint name))
 	 (let ((didit #f))
+	   (define (load-file proc file)
+	     (save-module-excursion (lambda () (proc file)))
+	     (set! didit #t))
 	   (dynamic-wind
 	    (lambda () (autoload-in-progress! dir-hint name))
 	    (lambda ()
-	      (let ((full (%search-load-path (in-vicinity dir-hint name))))
+	      (let ((file (in-vicinity dir-hint name)))
-		(if full
+		(cond ((and load-compiled
-		    (begin
+			    (%search-load-path (string-append file ".go")))
-		      (save-module-excursion (lambda () (primitive-load full)))
+		       => (lambda (full)
-		      (set! didit #t)))))
+			    (load-file load-compiled full)))
+		      ((%search-load-path file)
+		       => (lambda (full)
+			    (load-file primitive-load full))))))
 	    (lambda () (set-autoloaded! dir-hint name didit)))
 	   didit))))