X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=2%2Fhtmlgen.lisp;h=387ba8bfd73ee60c5316a1866895a4e080e77f33;hb=d0eb6dbc858446ac9d70b007a3b7fd589522e004;hp=f77b6b6a344d94aef7256c16978cba53d7652d3b;hpb=37624f5d0755676f834ab17c373c711689b04e9f;p=lml.git

diff --git a/2/htmlgen.lisp b/2/htmlgen.lisp
index f77b6b6..387ba8b 100644
--- a/2/htmlgen.lisp
+++ b/2/htmlgen.lisp
@@ -1,6 +1,6 @@
 ;; -*- mode: common-lisp; package: lml2 -*-
 ;;
-;; $Id: htmlgen.lisp,v 1.10 2003/06/25 21:24:09 kevin Exp $
+;; $Id: htmlgen.lisp,v 1.11 2003/06/29 16:21:09 kevin Exp $
 ;;
 ;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA 
 ;; copyright (c) 2003 Kevin Rosenberg
@@ -750,7 +750,7 @@
 	(unless body
 	  (error "must have a body with :insert-file"))
 	`(progn ,@(mapcar #'(lambda (bod)
-			      `(lml-load-path ,bod))
+			      `(lml-load ,bod))
 			  body))))
   
   (named-function html-nbsp-print-function
@@ -758,7 +758,7 @@
       (declare (ignore ent unknown subst stream args))
       (assert (eql 2 (length form)))
       (if (eq cmd :full)
-	  (lml-load-path (cadr form))
+	  (lml-load (cadr form))
 	  (error ":insert-file must be given an argument")))))