read-table

[procedure] read-table (o i (stdin)) (o eof)

(def read-table ((o i (stdin)) (o eof))
  (let e (read i eof)
    (if (alist e) (listtab e) e)))