Laufzeitmessung
;;; "Laufzeiten.scm"
; Hilfsprogramm zur Messung von Laufzeiten
(define
Zeit
(let
((Start (current-milliseconds))
(Stop (current-milliseconds)))
(lambda
Parameter
(cond
((null? Parameter) (current-milliseconds))
((equal? (car Parameter) 'start)
(set! Start (current-milliseconds))
Start)
((equal? (car Parameter) 'stop)
(set! Stop (current-milliseconds))
Stop)
((equal? (car Parameter) 'miss)
(set! Stop (current-milliseconds))
(- Stop Start))
(else
#f)))))
;(Zeit 'Start)
;(Zeit 'stop)
;(Zeit 'miss)