Fix old truncation of filename prefix that is no longer valid

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@13290 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Christian Stimming
2006-02-18 10:08:19 +00:00
parent f1f7f58134
commit f80dfa5a28
+1 -1
View File
@@ -26,7 +26,7 @@
(loop (cdr chars) (cons (car chars) accum))))))
(define (write-string string out-port filename line-number)
(display (string-append "/* " (substring filename 3)) out-port)
(display (string-append "/* " filename) out-port)
;;(display line-number out-port)
(display " */\n" out-port)
(display "_(" out-port)