fread.scm

来自「Scheme跨平台编译器」· SCM 代码 · 共 23 行

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File:         fread.sc
;;; Description:  FREAD benchmark
;;; Author:       Richard Gabriel
;;; Created:      11-Apr-85
;;; Modified:     11-Apr-85 20:39:09 (Bob Shaw)
;;;               24-Jul-87 (Will Clinger)
;;;               14-Jun-95 (Qobi)
;;;               31-Mar-98 (Qobi)
;;;               26-Mar-00 (flw)
;;; Language:     Scheme
;;; Status:       Public Domain
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; FREAD -- Benchmark to read from a file.
;;; Requires the existence of FPRINT.TST which is created by FPRINT.

(define (fread)
 (call-with-input-file "fprint.tst" (lambda (stream) (read stream))))

(time (fread)
)