From 69f3dcc3fd19fe6de23a53cfc70b7c032e2717f1 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 17 Sep 2010 08:11:25 +0900
Subject: [PATCH] adding port? predicate

---
 lib/init.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/init.scm b/lib/init.scm
index 62d044ec..c8a807e7 100644
--- a/lib/init.scm
+++ b/lib/init.scm
@@ -525,6 +525,8 @@
 
 ;; I/O utils
 
+(define (port? x) (or (input-port? x) (output-port? x)))
+
 (define (char-ready? . o)
   (not (eof-object? (peek-char (if (pair? o) (car o) (current-input-port))))))