Use parameter defaults with make-general-parameter.

diff --git a/src/runtime/pathnm.scm b/src/runtime/pathnm.scm
index c87c4ce7942ef03a5adf5387f5694c345ee5d509..f03504685407cdb7a6db7c9a5da2ff39d8558fcd 100644 (file)
--- a/src/runtime/pathnm.scm
+++ b/src/runtime/pathnm.scm
@@ -441,7 +441,7 @@ these rules:
 
 (define (make-param:default-pathname-defaults)
   (make-general-parameter #f
-                         identity-procedure
+                         default-parameter-converter
                          defaults-getter
                          defaults-setter))
 

diff --git a/src/runtime/wrkdir.scm b/src/runtime/wrkdir.scm
index 3a44497406c36e2995267757f9d1a8a449793864..db89995a75c7dda4f4fe18aa85c4c64b3915e84c 100644 (file)
--- a/src/runtime/wrkdir.scm
+++ b/src/runtime/wrkdir.scm
@@ -32,8 +32,8 @@ USA.
 (define (initialize-package!)
   (set! working-directory-pathname
        (make-general-parameter #f
-                               identity-procedure
-                               identity-procedure
+                               default-parameter-converter
+                               default-parameter-getter
                                wd-setter))
   (reset!)
   (add-event-receiver! event:after-restore reset!))