From acfbea061fe6323f1cec42f73107c137455fed83 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Mon, 30 Sep 2002 09:05:21 +0000 Subject: [PATCH] (re-sub-alist): Robustify. --- ChangeLog | 1 + scm/to-xml.scm | 8 ++++---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index b2ea4d1d97..0d63e4d971 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,7 @@ * scm/to-xml.scm: Fixes. input/trip.ly now parses as xml (without dtd). Add preliminary dtd. + (re-sub-alist): Robustify. 2002-09-29 Han-Wen Nienhuys diff --git a/scm/to-xml.scm b/scm/to-xml.scm index fc65e9d847..ea46d57241 100644 --- a/scm/to-xml.scm +++ b/scm/to-xml.scm @@ -100,10 +100,10 @@ is then separated. (regexp-substitute/global #f re string 'pre to 'post)) (define (re-sub-alist string alist) - (re-sub (caar alist) (cdar alist) - (if (pair? (cdr alist)) - (re-sub-alist string (cdr alist)) - string))) + (if (null? alist) + string + (re-sub (caar alist) (cdar alist) + (re-sub-alist string (cdr alist))))) (define xml-entities-alist '(("\"" . """) -- 2.39.5