Megatest

Artifact bdd95212bdd59747820252699290d25bf0fe8ff4:

• File attic/tryit.scm — part of check-in [c390ddefd1] at 2023-03-31 09:26:04 on branch v1.80-refactor1 — Expanding refactoring, not compilable. (user: matt, size: 356) [annotate] [blame] [check-ins using]

(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)