Use new cond-expand.

src/Makefile

@@ -149,7 +149,7 @@ CONFIGURATION-SOURCES=configuration.scm month.import.scm
 configuration.o: configuration.import.scm
 configuration.import.scm: $(CONFIGURATION-SOURCES)
 
-PROGRESS-SOURCES=progress.scm
+PROGRESS-SOURCES=progress.scm util-time.import.scm
 
 progress.o: progress.import.scm
 progress.import.scm: $(PROGRESS-SOURCES)

src/progress.scm

@@ -45,7 +45,7 @@
 	 (chicken base)
 	 (chicken format)
 	 (chicken port)
-	 (chicken time))
+	 util-time)
 
  ;; Parameterized current progress string
  (define *current-progress* (make-parameter #f))
@@ -151,10 +151,10 @@
 		  (*current-progress%-value* 0)
 		  (*current-progress%-last-value* #f)
 		  (*current-progress%-range* (cons 0 1)))
-     (let ((start (current-milliseconds)))
+     (let ((start (current-util-milliseconds)))
        (print-current-progress%)
        (let ((result (thunk))
-	     (stop (current-milliseconds)))
+	     (stop (current-util-milliseconds)))
 	 (print-current-progress% (sprintf " ~A ms" (- stop start)))
 	 (when echo?
 	   (newline))