From c91d982473fa05f797f18dbf967426da8820f58e Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 19 Sep 2010 12:16:27 +0900
Subject: [PATCH] removing port? definition now in core

---
 lib/chibi/stty.scm | 2 --
 1 file changed, 2 deletions(-)

diff --git a/lib/chibi/stty.scm b/lib/chibi/stty.scm
index d9c07b82..a1575d94 100644
--- a/lib/chibi/stty.scm
+++ b/lib/chibi/stty.scm
@@ -160,8 +160,6 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; high-level interface
 
-(define (port? x) (or (input-port? x) (output-port? x)))
-
 (define (stty . args)
   (let* ((port (if (and (pair? args) (port? (car args)))
                    (car args)