fix bug in previous commit

svn: r9887
This commit is contained in:
Matthew Flatt 2008-05-19 13:15:32 +00:00
parent 35d8fc3259
commit 7a72cd8034

View File

@ -175,7 +175,8 @@
(regexp-replace #rx"^ +" (regexp-replace #rx"^ +"
(regexp-replace #rx" +$" (regexp-replace #rx" +$"
s s
"")) "")
"")
" ")) " "))
(define (record-index word-seq element-seq tag content) (define (record-index word-seq element-seq tag content)