; sread = scheme read. eventually replace by writing read (xdef 'sread (lambda (p eof) (let ((expr (read p))) (if (eof-object? expr) eof expr))))
From ac.scm ©
ac.scm