From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 16 Jan 2017 08:53:48 +0000 (-0800)
Subject: Rename textual-port-property methods to port-property.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~125
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c8b3abff0e9cf23a7787617333d8e81c5fabade0;p=mit-scheme.git

Rename textual-port-property methods to port-property.
---

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 315fa726b..c0d5ac0e9 100644
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -975,7 +975,7 @@ USA.
   ;; Check the port property list for the name, and then the
   ;; environment.  This way a port can override the default.
   (let* ((nope "no-overridden-value")
-	 (v (textual-port-property port name nope)))
+	 (v (port-property port name nope)))
     (if (eq? v nope)
 	default-value
 	v)))
@@ -1011,9 +1011,9 @@ USA.
   (if file-attribute-alist
       (begin
 	;; Disable further attributes parsing.
-	(set-textual-port-property! port
-				    '*PARSER-ENABLE-FILE-ATTRIBUTES-PARSING?*
-				    #f)
+	(set-port-property! port
+			    '*PARSER-ENABLE-FILE-ATTRIBUTES-PARSING?*
+			    #f)
 	(process-keyword-attribute file-attribute-alist port)
 	(process-mode-attribute file-attribute-alist port)
 	(process-studly-case-attribute file-attribute-alist port))))
@@ -1032,15 +1032,13 @@ USA.
 	  (cond ((and (symbol? value)
 		      (or (string-ci=? (symbol-name value) "none")
 			  (string-ci=? (symbol-name value) "false")))
-		 (set-textual-port-property! port '*PARSER-KEYWORD-STYLE* #f))
+		 (set-port-property! port '*PARSER-KEYWORD-STYLE* #f))
 		((and (symbol? value)
 		      (string-ci=? (symbol-name value) "prefix"))
-		 (set-textual-port-property! port '*PARSER-KEYWORD-STYLE*
-					     'PREFIX))
+		 (set-port-property! port '*PARSER-KEYWORD-STYLE* 'PREFIX))
 		((and (symbol? value)
 		      (string-ci=? (symbol-name value) "suffix"))
-		 (set-textual-port-property! port '*PARSER-KEYWORD-STYLE*
-					     'SUFFIX))
+		 (set-port-property! port '*PARSER-KEYWORD-STYLE* 'SUFFIX))
 		(else
 		 (warn "Unrecognized value for keyword-style" value)))))))
 
@@ -1079,14 +1077,12 @@ USA.
 			(warn "Attribute value mismatch.  Expected True.")
 			#f)
 		       (else
-			(set-textual-port-property!
-			 port '*PARSER-CANONICALIZE-SYMBOLS?* #f))))
+			(set-port-property! port '*PARSER-CANONICALIZE-SYMBOLS?*
+					    #f))))
 		((or (not value)
 		     (and (symbol? value)
 			  (string-ci=? (symbol-name value) "false")))
-		 (set-textual-port-property! port
-					     '*PARSER-CANONICALIZE-SYMBOLS?*
-					     #t))
+		 (set-port-property! port '*PARSER-CANONICALIZE-SYMBOLS?* #t))
 		(else (warn "Unrecognized value for sTuDly-case" value)))))))
 
 (define-syntax define-parse-error
diff --git a/src/runtime/port.scm b/src/runtime/port.scm
index b64de72fa..e6c0918e2 100644
--- a/src/runtime/port.scm
+++ b/src/runtime/port.scm
@@ -511,19 +511,19 @@ USA.
 (define-port-operation flush-output)
 (define-port-operation discretionary-flush-output)
 
-(define (textual-port-property port name #!optional default-value)
+(define (port-property port name #!optional default-value)
   (guarantee symbol? name 'port-property)
   (((port-metadata port) 'get) name default-value))
 
-(define (set-textual-port-property! port name value)
+(define (set-port-property! port name value)
   (guarantee symbol? name 'set-port-property!)
   (((port-metadata port) 'put!) name value))
 
-(define (intern-textual-port-property! port name get-value)
+(define (intern-port-property! port name get-value)
   (guarantee symbol? name 'intern-port-property!)
   (((port-metadata port) 'intern!) name get-value))
 
-(define (remove-textual-port-property! port name)
+(define (remove-port-property! port name)
   (guarantee symbol? name 'remove-port-property!)
   (((port-metadata port) 'delete!) name))
 
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 2b144d247..89a01492b 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -2565,7 +2565,7 @@ USA.
 	  input-port-terminal-mode
 	  input-port?
 	  interaction-i/o-port
-	  intern-textual-port-property!
+	  intern-port-property!
 	  make-textual-port
 	  make-textual-port-type
 	  notification-output-port
@@ -2573,6 +2573,7 @@ USA.
 	  output-port-open?
 	  output-port-terminal-mode
 	  output-port?
+	  port-property
 	  port/coding
 	  port/known-coding?
 	  port/known-codings
@@ -2583,19 +2584,18 @@ USA.
 	  port/set-line-ending
 	  port/supports-coding?
 	  port?
-	  remove-textual-port-property!
+	  remove-port-property!
 	  set-input-port-blocking-mode!
 	  set-input-port-terminal-mode!
 	  set-output-port-blocking-mode!
 	  set-output-port-terminal-mode!
-	  set-textual-port-property!
+	  set-port-property!
 	  textual-i/o-port?
 	  textual-input-port?
 	  textual-output-port?
 	  textual-port-open?
 	  textual-port-operation
 	  textual-port-operation-names
-	  textual-port-property
 	  textual-port-thread-mutex
 	  textual-port-type
 	  textual-port?
diff --git a/src/xml/rdf-struct.scm b/src/xml/rdf-struct.scm
index 77ab1e384..159e30630 100644
--- a/src/xml/rdf-struct.scm
+++ b/src/xml/rdf-struct.scm
@@ -185,8 +185,8 @@ USA.
 
 (define (with-rdf-input-port port thunk)
   (fluid-let ((*rdf-bnode-registry*
-	       (intern-textual-port-property! port 'RDF-BNODE-REGISTRY
-					      make-string-hash-table)))
+	       (intern-port-property! port 'RDF-BNODE-REGISTRY
+				      make-string-hash-table)))
     (thunk)))
 
 (define *rdf-bnode-registry*)
@@ -414,9 +414,9 @@ USA.
   (if registry
       (begin
 	(guarantee-rdf-prefix-registry registry 'PORT/SET-RDF-PREFIX-REGISTRY!)
-	(set-textual-port-property! port 'RDF-PREFIX-REGISTRY registry))
-      (remove-textual-port-property! port 'RDF-PREFIX-REGISTRY)))
+	(set-port-property! port 'RDF-PREFIX-REGISTRY registry))
+      (remove-port-property! port 'RDF-PREFIX-REGISTRY)))
 
 (define (port/rdf-prefix-registry port)
-  (or (textual-port-property port 'RDF-PREFIX-REGISTRY #f)
+  (or (port-property port 'RDF-PREFIX-REGISTRY #f)
       *default-rdf-prefix-registry*))
\ No newline at end of file