From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 9 Oct 2007 04:14:29 +0000 (+0000)
Subject: Eliminate kludge to work around old DEFAULT-OBJECT? macro.
X-Git-Tag: 20090517-FFI~431
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=02f84763ccbe4baf1f15a247f2fa75949e664cc5;p=mit-scheme.git

Eliminate kludge to work around old DEFAULT-OBJECT? macro.
---

diff --git a/v7/src/edwin/comman.scm b/v7/src/edwin/comman.scm
index 9e7e2f7c3..1eb5645c4 100644
--- a/v7/src/edwin/comman.scm
+++ b/v7/src/edwin/comman.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: comman.scm,v 1.90 2007/01/05 21:19:23 cph Exp $
+$Id: comman.scm,v 1.91 2007/10/09 04:14:29 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -147,14 +147,14 @@ USA.
     (set-variable-initial-value! variable value)
     (set-variable-%default-value! variable value)
     (set-variable-assignment-daemons! variable '())
-    ;; Next two are written strangely because DEFAULT-OBJECT?
-    ;; expansion contains (THE-ENVIRONMENT), which can't be inlined.
-    (if (default-object? test)
-	(set-variable-value-validity-test! variable #f)
-	(set-variable-value-validity-test! variable test))
-    (if (default-object? normalization)
-	(set-variable-value-normalization! variable #f)
-	(set-variable-value-normalization! variable normalization))
+    (set-variable-value-validity-test! variable
+				       (if (default-object? test)
+					   #f
+					   test))
+    (set-variable-value-normalization! variable
+				       (if (default-object? normalization)
+					   #f
+					   normalization))
     variable))
 
 (define (make-variable-buffer-local! variable)