Megatest

tryit.scm at [c390ddefd1]
Login

File attic/tryit.scm artifact bdd95212bd part of check-in c390ddefd1



(module tryit
 *

(import scheme
	chicken)

(define (read-from-file fname)
  (handle-exceptions
      exn
    #f
    (with-input-from-file fname
      read)))


(define (read-gazillions num fname)
  (let loop ((res '())
	     (count 0))
    (if (< count num)
	(begin
	  (loop (cons (read-from-file fname) res)
		(+ count 1)))
	res)))

)

(import tryit)