Rename default-pathname-defaults to param:default-pathname-defaults.

Makes consistent with param:flonum-unparser-cutoff.

diff --git a/src/runtime/pathnm.scm b/src/runtime/pathnm.scm
index 366c247d5909e3246af46f491f02c98ee21922ff..cbf281c37e9b64f53304bef4eb77c50b30495d83 100644 (file)
--- a/src/runtime/pathnm.scm
+++ b/src/runtime/pathnm.scm
@@ -437,12 +437,12 @@ these rules:
 ;;;; Pathname Merging
 
 (define *default-pathname-defaults*)
-(define default-pathname-defaults)
+(define param:default-pathname-defaults)
 
 ;;; Kludge to support FLUID-LET:
 (define (get-default-pathname-defaults)
   (if (default-object? *default-pathname-defaults*)
-      (default-pathname-defaults)
+      (param:default-pathname-defaults)
       *default-pathname-defaults*))
 
 (define (merge-pathnames pathname #!optional defaults default-version)
@@ -724,7 +724,7 @@ these rules:
       (set! host-types types)
       (set! local-host (make-host host-type #f))))
   (set! *default-pathname-defaults* #!default)
-  (set! default-pathname-defaults
+  (set! param:default-pathname-defaults
        (make-parameter (make-pathname local-host #f #f #f #f #f)))
   (set! library-directory-path
        (make-parameter

diff --git a/src/runtime/rep.scm b/src/runtime/rep.scm
index fc9a2a5ec7ba2954adce60dc4f06f4b8825910f3..315dc5106c90e3e9fc5d5d0a3a7d93af8faa8133 100644 (file)
--- a/src/runtime/rep.scm
+++ b/src/runtime/rep.scm
@@ -128,7 +128,8 @@ USA.
                    (cons standard-error-hook #f)
                    (cons standard-warning-hook #f)
                    (cons standard-breakpoint-hook #f)
-                   (cons default-pathname-defaults (default-pathname-defaults))
+                   (cons param:default-pathname-defaults
+                         (param:default-pathname-defaults))
                    (cons dynamic-handler-frames '())
                    (cons *bound-restarts*
                          (if (cmdl/parent cmdl) (*bound-restarts*) '())))

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 551c679c4b23355558826bcc04986f1d1199ea19..d482db8b4cffefdaf60cb35f50d646d1b7f55ce9 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -3139,7 +3139,6 @@ USA.
          ->namestring
          ->pathname
          ->truename
-         default-pathname-defaults
          directory-namestring
          directory-pathname
          directory-pathname-as-file
@@ -3158,6 +3157,7 @@ USA.
          local-host
          make-pathname
          merge-pathnames
+         param:default-pathname-defaults
          parse-namestring
          pathname->uri
          pathname-absolute?

diff --git a/src/runtime/wrkdir.scm b/src/runtime/wrkdir.scm
index ba5dae21b68eb79b19872b0fee856c1ab272e47d..383ef6084bbd404f80e16e6e927341a06526e393 100644 (file)
--- a/src/runtime/wrkdir.scm
+++ b/src/runtime/wrkdir.scm
@@ -40,7 +40,7 @@ USA.
          (pathname-as-directory
           ((ucode-primitive working-directory-pathname))))))
     (working-directory-pathname pathname)
-    (default-pathname-defaults pathname))
+    (param:default-pathname-defaults pathname))
   unspecific)
 
 (define working-directory-pathname)
@@ -62,13 +62,13 @@ USA.
                              'SET-WORKING-DIRECTORY-PATHNAME!
                              (list name)))
     (working-directory-pathname pathname)
-    (default-pathname-defaults pathname)
+    (param:default-pathname-defaults pathname)
     (cmdl/set-default-directory (nearest-cmdl) pathname)
     pathname))
 
 (define (with-working-directory-pathname name thunk)
   (let ((pathname (new-pathname name)))
-    (parameterize* (list (cons default-pathname-defaults pathname)
+    (parameterize* (list (cons param:default-pathname-defaults pathname)
                         (cons working-directory-pathname pathname))
       thunk)))