From 955363c2e3f6e3bd957c11ff1ba4e8cd2a8a6642 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 7 Mar 2017 21:59:18 -0800
Subject: [PATCH] Implement port-properties.

---
 src/runtime/port.scm    | 3 +++
 src/runtime/runtime.pkg | 1 +
 2 files changed, 4 insertions(+)

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?
-- 
2.25.1