From a7517a3f0580959aecce13221101a0e426f59656 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Tue, 26 Feb 2002 14:40:59 +0000
Subject: [PATCH] Add record discloser for FDPORT-DATA.

---
 scsh/newports.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/scsh/newports.scm b/scsh/newports.scm
index 23b4028..b1aa51e 100644
--- a/scsh/newports.scm
+++ b/scsh/newports.scm
@@ -6,6 +6,11 @@
   channel
   revealed)
 
+(define-record-discloser type/fdport-data
+  (lambda (r)
+    (list 'fdport-data
+	  (fdport-data:channel r) (fdport-data:revealed r))))
+
 ; This stuff is _weak_.
 ; Vector of weak pointers mapping fd -> fdport.