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)