mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

sxml-match: Handle multiple-value returns.

Browse source 
* module/sxml/sxml-match.ss (sxml-match1): Invoke ESCAPE via
  `call-with-values'.

* test-suite/tests/sxml-match-tests.ss ("test multiple value returns"):
  New test.

* module/sxml/match.scm: Mention the modification.
This commit is contained in:
Ludovic Courtès 2010-05-26 22:49:09 +02:00
parent 40b19fda5c
commit 01fded8c77
3 changed files with 17 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/sxml/match.scm
View file

@ -81,11 +81,14 @@
;;; Include upstream source file.
;;;
;; This file was taken unmodified from
;; This file was taken from
;; <http://planet.plt-scheme.org/package-source/jim/sxml-match.plt/1/1/> on
;; 2010-05-24. It was written by Jim Bender <benderjg2@aol.com> and released
;; under the MIT/X11 license
;; <http://www.gnu.org/licenses/license-list.html#X11License>.
;;
;; Modified the `sxml-match1' macro to allow multiple-value returns (upstream
;; was notified.)
(include-from-path "sxml/sxml-match.ss")