From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Feb 2016 09:46:04 +0000 (-0800)
Subject: Use parameter defaults with make-general-parameter.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~99
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=03c99aebcbd2e98c84b1781df1f8bfdd9647189a;p=mit-scheme.git

Use parameter defaults with make-general-parameter.
---

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!))