home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0963.lha / SIOD / scm / timer.scm < prev    next >
Text File  |  1993-08-19  |  230b  |  8 lines
  1. (define time-of-day runtime)
  2.  
  3. (define (timer proc . args)
  4.         (let* ((start (runtime))
  5.                (ans (apply proc args))
  6.                (end (runtime)))
  7.               (writeln "Time = " (- end start) ", Answer = " ans)))
  8.