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

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 315fa726b0de43808fec945bf8a3187b903eccf4..c0d5ac0e903d2a65913a33aa3c109a6ca68ed5f3 100644 (file)
--- 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)))))))
 \f
 (define-syntax define-parse-error

diff --git a/src/runtime/port.scm b/src/runtime/port.scm
index b64de72faf66363eab3031ac891652f681582230..e6c0918e246cf67124affad114714ec56da1a5d1 100644 (file)
--- 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 2b144d247ba3f755253efd812875a5adc51a11f5..89a01492ba125028e3d9ab4c5c88213b86053674 100644 (file)
--- 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 77ab1e38410a82b84757718e6ce086722e4bec03..159e30630395c27f66593f1c47c9de009aaf6f77 100644 (file)
--- 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