Welcome to the CHICKEN Scheme pasting service

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))))
[ permalink | raw ]

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))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What does `(string? 42)' produce?
Visually impaired? Let me spell it for you (wav file) download WAV