From 9467f2510710b5ecc567405dfcf9829b57841f3e Mon Sep 17 00:00:00 2001 From: "Mike D. Lowis" Date: Fri, 21 Sep 2012 16:43:12 -0400 Subject: [PATCH] Removed unused file --- source/charport.scm | 19 ------------------- 1 file changed, 19 deletions(-) delete mode 100644 source/charport.scm diff --git a/source/charport.scm b/source/charport.scm deleted file mode 100644 index fc4c975..0000000 --- a/source/charport.scm +++ /dev/null @@ -1,19 +0,0 @@ -(declare (unit charport)) -;(define (charport-read chprt) -; (define ch (read-char (charport-port chprt))) -; (cond -; ((eof-object? ch)) ; Do nothing for EOFs -; ((char=? ch #\newline) -; (charport-line-set! chprt (+ 1 (charport-line chprt))) -; (charport-column-set! chprt 1)) -; (else -; (charport-column-set! chprt (+ 1 (charport-column chprt))))) -; (charobj ch (charport-posdata chprt)) -; -;(define (charport-posdata chprt) -; (posdata -; (port-name (charport-port chprt)) -; (charport-line chprt) -; (charport-column chprt))) - - -- 2.52.0