Bug 707311 - Tax Invoice fails to open when using guile 2 - addendum

Make it also work with guile 2 in non-compiled mode

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@23459 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Geert Janssens 2013-11-29 19:17:40 +00:00
parent 9ffc56da03
commit da57bb7f0b

View File

@ -156,7 +156,7 @@
;; recursively process input stream
(define (loop inp needle other code? line)
(if (eq? line "")
(if (equal? line "")
(set! line (read-line inp 'concat)))
(if (not (eof-object? line))
(let ((match (regexp-exec needle line)))