mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
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:
parent
9ffc56da03
commit
da57bb7f0b
@ -156,7 +156,7 @@
|
|||||||
|
|
||||||
;; recursively process input stream
|
;; recursively process input stream
|
||||||
(define (loop inp needle other code? line)
|
(define (loop inp needle other code? line)
|
||||||
(if (eq? line "")
|
(if (equal? line "")
|
||||||
(set! line (read-line inp 'concat)))
|
(set! line (read-line inp 'concat)))
|
||||||
(if (not (eof-object? line))
|
(if (not (eof-object? line))
|
||||||
(let ((match (regexp-exec needle line)))
|
(let ((match (regexp-exec needle line)))
|
||||||
|
Loading…
Reference in New Issue
Block a user