ovidiu 02/01/18 17:20:12
Modified: src/scratchpad/schecoon/scheme sitemap.scm
Log:
Fixed small problem in sitemap-parse!
Revision Changes Path
1.5 +2 -2 xml-cocoon2/src/scratchpad/schecoon/scheme/sitemap.scm
Index: sitemap.scm
===================================================================
RCS file: /home/cvs/xml-cocoon2/src/scratchpad/schecoon/scheme/sitemap.scm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- sitemap.scm 19 Jan 2002 01:02:22 -0000 1.4
+++ sitemap.scm 19 Jan 2002 01:20:12 -0000 1.5
@@ -431,8 +431,8 @@
;; defined as `main'. This will simply call the function stored in
;; `the-sitemap'.
(define (sitemap-parse! manager source)
- (let ((sxml (sitemap:parse manager source))
- (xsxml (process-sitemap sxml)))
+ (let* ((sxml (sitemap:parse manager source))
+ (xsxml (process-sitemap sxml)))
(set! the-sitemap xsxml)))
;; This is the main entry point in the Scheme Cocoon sitemap. This
----------------------------------------------------------------------
In case of troubles, e-mail: [EMAIL PROTECTED]
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
