readtable: add documentation for PUSH->READ

1 files changed, 6 insertions, 0 deletions

diff --git a/read.scm b/read.scm
index 8724e3c..a138041 100644
--- a/read.scm
+++ b/read.scm
@@ -33,6 +33,12 @@
     (lambda ()
       (read-char port))))
 
+;;; READ:
+;;; 
+;;; (POS): Return (LIST FILENAME LINE-NUMBER OFFSET).
+;;; (READ): Read the next character in the stream. Returns #F on EOF.
+;;; (PUSH CHAR): Push CHAR such that it will be the next character read
+;;; when (READ) is called.
 (define port->read
   (lambda (read-function filename)
     (let ((line-number 1)