From 03c99aebcbd2e98c84b1781df1f8bfdd9647189a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Feb 2016 01:46:04 -0800
Subject: [PATCH] Use parameter defaults with make-general-parameter.

---
 src/runtime/pathnm.scm | 2 +-
 src/runtime/wrkdir.scm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/runtime/pathnm.scm b/src/runtime/pathnm.scm
index c87c4ce79..f03504685 100644
--- 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 3a4449740..db89995a7 100644
--- 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!))
-- 
2.25.1