From: Mike D. Lowis <mike@mdlowis.com>
Date: Fri, 21 Sep 2012 20:43:12 +0000 (-0400)
Subject: Removed unused file
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=9467f2510710b5ecc567405dfcf9829b57841f3e;p=archive%2Fdlang-scm.git

Removed unused file
---

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)))
-
-