Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Daily ed implementation thread

Name: Anonymous 2012-11-27 21:40

(use extras) ; compile with chicken



(define run-cmd

  (lambda args

    (display "?")

    (newline)))



(let loop ((line (read-line)))

  (cond ((not (eof-object? line))

         (run-cmd line)

         (loop (read-line)))))

Name: Anonymous 2012-11-27 22:03

[ readln "?" print ] loop

Newer Posts