Removed unused file

diff --git a/source/charport.scm b/source/charport.scm
deleted file mode 100644 (file)
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)))
-
-