Skip to content
Permalink
Fetching contributors…
Cannot retrieve contributors at this time
17 lines (15 sloc) 459 Bytes
;; ========================================================
;; 4-read-loans
;; ========================================================
;; begin a transaction
(begin-tx)
;; use the loans module
(use loans)
;; read the loan inventory
(read-loan-inventory)
;; read loans with status of INITIATED
(read-loans-with-status INITIATED)
;; read loans with status of ASSIGNED
(read-loans-with-status ASSIGNED)
;; commit the transaction
(commit-tx)
You can’t perform that action at this time.