shithub: sl

Info  •  Files  •  Log  •  Branches

scheme alises: input-port-line

--- a/aliases.scm

+++ b/aliases.scm

@@ -125,9 +125,7 @@

 (define (current-output-port (p *output-stream*))

   (set! *output-stream* p))

-(define (input-port-line p)

-  ; TODO

-  1)

+(define input-port-line io-line)

 (define get-datum read)

 (define (put-datum port x)