peter
/
UNSLISP
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

readtable: add documentation for PUSH->READ

This commit is contained in:
Peter McGoron 2024-09-07 18:44:18 -04:00
parent 4d40be38d0
commit 42cd5a0678
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
read.scm
View File

@ -33,6 +33,12 @@
(lambda () (lambda ()
(read-char port)))) (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 (define port->read
(lambda (read-function filename) (lambda (read-function filename)
(let ((line-number 1) (let ((line-number 1)