cocoon-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ovi...@apache.org
Subject cvs commit: xml-cocoon2/src/scratchpad/schecoon/scheme sitemap.scm
Date Tue, 08 Jan 2002 23:18:52 GMT
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:     webmaster@xml.apache.org
To unsubscribe, e-mail:          cocoon-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: cocoon-cvs-help@xml.apache.org


Mime
View raw message