From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 26 Jul 2006 19:04:41 +0000 (+0000)
Subject: Allow LOAD in expander environment to take optional target
X-Git-Tag: 20090517-FFI~980
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=00d7c0a04c30c9a281d90ead87a48e013a523aeb;p=mit-scheme.git

Allow LOAD in expander environment to take optional target
environment.
---

diff --git a/v7/src/ssp/xhtml-expander.scm b/v7/src/ssp/xhtml-expander.scm
index 909767829..39ea6c7ba 100644
--- a/v7/src/ssp/xhtml-expander.scm
+++ b/v7/src/ssp/xhtml-expander.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xhtml-expander.scm,v 1.9 2006/02/02 20:53:23 cph Exp $
+$Id: xhtml-expander.scm,v 1.10 2006/07/26 19:04:41 cph Exp $
 
 Copyright 2002,2003,2004,2006 Massachusetts Institute of Technology
 
@@ -93,9 +93,11 @@ USA.
     (environment-define environment 'document-pathname pathname)
     (environment-define environment 'load
 			(let ((directory (directory-pathname pathname)))
-			  (lambda (pathname)
+			  (lambda (pathname #!optional target)
 			    (load (merge-pathnames pathname directory)
-				  environment))))
+				  (if (default-object? target)
+				      environment
+				      target)))))
     environment))
 
 (define ((pi-expander environment) text)