ovidiu 02/01/08 15:18:52
Modified: src/scratchpad/schecoon/scheme sitemap.scm
Log:
Correctly pass the results of the regexp matching to the matcher function. Rename
the argument passed to the matcher function to "sitemap".
Revision Changes Path
1.2 +4 -3 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.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- sitemap.scm 3 Jan 2002 12:31:35 -0000 1.1
+++ sitemap.scm 8 Jan 2002 23:18:52 -0000 1.2
@@ -90,16 +90,17 @@
(define-syntax define-sitemap
(syntax-rules ()
+ ((_) #f)
((_ m ...)
- (lambda (url cm env) (or (m url cm env) ...)))))
+ (lambda (url sitemap env) (or (m url sitemap env) ...)))))
(define-syntax match
(syntax-rules ()
((_ pattern args body ...)
(let ((rx (regexp pattern)))
- (lambda (url cm env)
+ (lambda (url sitemap env)
(let ((result (regexp-match rx url)))
(if result
- ((lambda args (begin body ...)) cm env result)
+ (apply (lambda args (begin body ...)) sitemap env (cdr result))
#f)))))
))
----------------------------------------------------------------------
In case of troubles, e-mail: [EMAIL PROTECTED]
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
