mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-16 18:25:11 -06:00
[hooks.scm] deprecate hooks.scm
this module has a single function which is used only once. inline it.
This commit is contained in:
parent
f64586b873
commit
4a2b5e9641
@ -126,7 +126,7 @@
|
||||
(gnc-add-scm-extension business-menu)
|
||||
|
||||
;; run report-hook danglers
|
||||
(gnc:hook-run-danglers HOOK-REPORT)
|
||||
(gnc-hook-run HOOK-REPORT '())
|
||||
|
||||
;; push reports (new items added on top of menu)
|
||||
(gnc:add-report-template-menu-items)
|
||||
|
@ -265,7 +265,7 @@
|
||||
(export gnc:get-three-months-ahead)
|
||||
|
||||
;; hooks
|
||||
(export gnc:hook-run-danglers) ;; from hooks.scm
|
||||
(export gnc:hook-run-danglers) ;; from hooks.scm- deprecated
|
||||
(re-export gnc-hook-add-scm-dangler)
|
||||
(re-export HOOK-REPORT)
|
||||
|
||||
|
@ -16,6 +16,7 @@
|
||||
;; Boston, MA 02110-1301, USA gnu@gnu.org
|
||||
|
||||
(define (gnc:hook-run-danglers hook . args)
|
||||
(issue-deprecation-warning "gnc:hook-run-danglers is now deprecated.")
|
||||
(if (null? args)
|
||||
(set! args '())
|
||||
(set! args (car args)))
|
||||
|
Loading…
Reference in New Issue
Block a user