cond-epand for current-milliseconds pasted by dzoe on Tue Oct 3 14:39:15 2023
(define (current-util-milliseconds)
(cond-expand
(chicken-5.0
(current-milliseconds))
(chicken-5.1
(current-milliseconds))
(chicken-5.2
(current-milliseconds))
(else
(current-process-milliseconds))))
alternative conditional import workaround added by wasamasa on Tue Oct 3 14:48:44 2023
(cond-expand
((or chicken-5.0 chicken-5.1 chicken-5.2)
(import (rename (chicken time)
(current-milliseconds current-process-milliseconds))))
(else
(import (chicken time))))