Implement gnc:generate-restore-forms, gnc-optiondb-save-to-scheme.

This commit is contained in:
John Ralls
2021-07-13 12:44:13 -07:00
parent c34986dad4
commit a1af86ed40
2 changed files with 19 additions and 1 deletions

View File

@@ -35,6 +35,10 @@
(define-public (gnc:value->string value)
(format #f "~s" value))
(define-public (gnc:generate-restore-forms options name)
(let ((optiondb (options 'generate-restore-forms)))
(gnc-optiondb-save-to-scheme optiondb name)))
(define-public (gnc:lookup-option options section name)
(if options
(gnc-lookup-option (options 'lookup) section name)