Add record discloser for FDPORT-DATA.

2002-02-26 14:40:59 +00:00 · 2002-02-26 14:40:59 +00:00 · a7517a3f05
parent 12ced00589
commit a7517a3f05
1 changed files with 5 additions and 0 deletions
--- 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.