IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-12-01 21:19:16 -06:00
Code Issues Packages Projects Releases Wiki Activity

* src/scm/main.scm (gnc:startup): change gnc:depend calls to

Browse Source 
load-from-path.
(gnc:main): add second arg to eval call to comply with standard.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5641 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2001-10-14 17:53:23 +00:00
parent 2b5ad622f6
commit 013a2f69df
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/scm/main.scm
View File

@ -23,6 +23,8 @@
(use-modules (ice-9 slib))
(require 'printf)
;;(use-modules (ice-9 statprof))
;; A list of things to do when in batch mode after the initial
;; startup. List items may be strings, in which case they're read and
;; evaluated or procedures, in which case they're just executed.
@ -159,14 +161,14 @@
(gnc:module-load "gnucash/report/locale-specific/us" 0)
;; Now we can load a bunch of files.
(gnc:depend "path.scm")
(gnc:depend "command-line.scm")
(gnc:depend "doc.scm")
(gnc:depend "extensions.scm")
(gnc:depend "main-window.scm")
(gnc:depend "printing/print-check.scm")
(gnc:depend "price-quotes.scm")
(gnc:depend "tip-of-the-day.scm")
(load-from-path "path.scm")
(load-from-path "command-line.scm")
(load-from-path "doc.scm")
(load-from-path "extensions.scm")
(load-from-path "main-window.scm")
(load-from-path "tip-of-the-day.scm")
(gnc:use-guile-module-here! '(gnucash price-quotes))
(gnc:hook-add-dangler gnc:*book-opened-hook*
(lambda (file)
@ -261,12 +263,17 @@
(let loop ((next-form (read port)))
(if (not (eof-object? next-form))
(begin
(eval next-form)
;; FIXME: is this where we want to eval these?
;; should we perhaps have a (gnucash user)?
(eval next-form (resolve-module '(gnucash bootstrap)))
(loop (read port))))))))
(else
(display "gnucash: unknown batch-mode item - ignoring.")
(newline))))
;; (statprof-reset 0 50000) ;; 20 times/sec
;; (statprof-start)
;; Now the fun begins.
(gnc:startup)