Welcome to the CHICKEN Scheme pasting service

line-buffered read-char added by fadein on Mon Aug 20 18:57:45 2012

(let loop ()
  (print "reading...")
  (let ((char (read-char)))
    (and
      (not (eof-object? char))
        (printf "char is '~a'~n" char)
        (loop))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the procedure that returns the car of a car?
Visually impaired? Let me spell it for you (wav file) download WAV