mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
21 lines
566 B
Scheme
Executable File
21 lines
566 B
Scheme
Executable File
(define exit-code 0)
|
|
(setenv "GNC_UNINSTALLED" "1")
|
|
|
|
(use-modules (gnucash app-utils))
|
|
|
|
(cond
|
|
((defined? 'gnc:apply-with-error-handling)
|
|
(display "Procedure gnc:apply-with-error-handling found\n"))
|
|
(else
|
|
(display "Failed - procedure gnc:apply-with-error-handling not found\n")
|
|
(set! exit-code -1)))
|
|
|
|
(cond
|
|
((defined? 'gnc-default-currency)
|
|
(display "Procedure gnc-default-currency found\n"))
|
|
(else
|
|
(display "Failed - procedure gnc-default-currency not found\n")
|
|
(set! exit-code -1)))
|
|
|
|
(exit exit-code)
|