Welcome to the CHICKEN Scheme pasting service

no title added by anonymous on Wed Jul 12 01:23:58 2023

(define (read-file-stream filename)
  (let ([f (open-input-file filename)])
	(let read-loop ()
	  (define line (read-line f))
	  (print "read line")
	  (if (eof-object? line)
		  (begin
			(close-input-port f)
			stream-null)
		  (stream-cons line (read-loop))))))

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which egg provides `take-right'?
Visually impaired? Let me spell it for you (wav file) download WAV