[Gnucash-changes] r13290 - gnucash/trunk/intl-scm - Fix old truncation of filename prefix that is no longer valid

[Christian Stimming]

Author: cstim
Date: 2006-02-18 05:08:19 -0500 (Sat, 18 Feb 2006)
New Revision: 13290
Trac: http://svn.gnucash.org/trac/changeset/13290

Modified:
   gnucash/trunk/intl-scm/xgettext.scm
Log:
Fix old truncation of filename prefix that is no longer valid

Modified: gnucash/trunk/intl-scm/xgettext.scm
===================================================================
--- gnucash/trunk/intl-scm/xgettext.scm	2006-02-18 10:01:33 UTC (rev 13289)
+++ gnucash/trunk/intl-scm/xgettext.scm	2006-02-18 10:08:19 UTC (rev 13290)
@@ -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)