From fefea400ce37e1b3133a6eb6f8c2b989f8e19dc5 Mon Sep 17 00:00:00 2001
From: Christopher Lam <christopher.lck@gmail.com>
Date: Sun, 24 Dec 2017 13:16:41 +0800
Subject: [PATCH] TP->T64: libgnucash/engine/engine-interface.scm

---
 libgnucash/engine/engine-interface.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/libgnucash/engine/engine-interface.scm b/libgnucash/engine/engine-interface.scm
index e811320030..a1217ef938 100644
--- a/libgnucash/engine/engine-interface.scm
+++ b/libgnucash/engine/engine-interface.scm
@@ -101,7 +101,7 @@
    (xaccSplitGetMemo split)
    (xaccSplitGetAction split)
    (xaccSplitGetReconcile split)
-   (gnc-split-get-date-reconciled split)
+   (xaccSplitGetDateReconciled split)
    (xaccSplitGetAmount split)
    (xaccSplitGetValue split)))
 
@@ -226,9 +226,9 @@
   (gnc:make-transaction-scm
    (gncTransGetGUID trans)
    (xaccTransGetCurrency trans)
-   (gnc-transaction-get-date-entered trans)
+   (xaccTransGetDateEntered trans)
    (if use-cut-semantics?
-       (gnc-transaction-get-date-posted trans)
+       (xaccTransGetDate trans)
        #f)
    (if use-cut-semantics?
        (xaccTransGetNum trans)
@@ -259,8 +259,7 @@
           (if description (xaccTransSetDescription trans description))
           (if num         (xaccTransSetNum trans num))
           (if notes       (xaccTransSetNotes trans notes))
-          (if date-posted (gnc-transaction-set-date
-                           trans date-posted)))
+          (if date-posted (xaccTransSetDatePostedSecs trans date-posted)))
 
         ;; strip off the old splits
         (for-each (lambda (split)