From 00d7c0a04c30c9a281d90ead87a48e013a523aeb Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 26 Jul 2006 19:04:41 +0000 Subject: [PATCH] Allow LOAD in expander environment to take optional target environment. --- v7/src/ssp/xhtml-expander.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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) -- 2.25.1