From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 8 Mar 2017 05:59:18 +0000 (-0800)
Subject: Implement port-properties.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~106
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=955363c2e3f6e3bd957c11ff1ba4e8cd2a8a6642;p=mit-scheme.git

Implement port-properties.
---

diff --git a/src/runtime/port.scm b/src/runtime/port.scm
index ef1f05d59..ebf5d0652 100644
--- a/src/runtime/port.scm
+++ b/src/runtime/port.scm
@@ -527,6 +527,9 @@ USA.
   (guarantee symbol? name 'remove-port-property!)
   (((port-metadata port) 'delete!) name))
 
+(define (port-properties port)
+  (alist-copy (((port-metadata port) 'get-alist))))
+
 (define (transcribe-char char port)
   (let ((tport (textual-port-transcript port)))
     (if tport
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index bfc806f14..af8b1b593 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -2595,6 +2595,7 @@ USA.
 	  output-port-open?
 	  output-port-terminal-mode
 	  output-port?
+	  port-properties
 	  port-property
 	  port/coding
 	  port/known-coding?