fix bug in previous commit

svn: r9887

original commit: 7a72cd8034d078bf78f40a072d8f85818a31868a
This commit is contained in:
Matthew Flatt 2008-05-19 13:15:32 +00:00
parent 449670964d
commit 537dc77d15

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)