;;;; items.import.scm - GENERATED BY CHICKEN 4.13.0 -*- Scheme -*-
(eval '(import
scheme
chicken
data-structures
extras
ports
commonmod
debugprint
configfmod
srfi-69
srfi-1
postgresql))
(##sys#register-compiled-module
'items
(list)
'((items:get-items-from-config . items#items:get-items-from-config)
(items:read-items-file . items#items:read-items-file)
(items:first-row-intersperse . items#items:first-row-intersperse)
(items:check-valid-items . items#items:check-valid-items)
(item-table->item-list . items#item-table->item-list)
(item-assoc->item-list . items#item-assoc->item-list)
(process-itemlist . items#process-itemlist)
(*available-db* . commonmod#*available-db*))
(list (cons 'debug:catch-and-dump
(syntax-rules
()
((debug:catch-and-dump proc procname)
(begin
(handle-exceptions
exn
(begin
(print-call-chain (current-error-port))
(with-output-to-port
(current-error-port)
(lambda ()
(print ((condition-property-accessor 'exn 'message) exn))
(print "Callback error in " procname)
(print "Full condition info:\n"
(condition->list exn)))))
(proc))))))
(cons 'common:handle-exceptions
(syntax-rules () ((_ exn errstmt body ...) (begin body ...))))
(cons 'common:debug-handle-exceptions
(syntax-rules
()
((_ debug exn errstmt body ...)
(if debug
(begin body ...)
(handle-exceptions exn errstmt body ...)))))
(cons 'define-simple-syntax
(syntax-rules
()
((_ (name arg ...) body ...)
(define-syntax
name
(syntax-rules () ((name arg ...) (begin body ...))))))))
(list))
;; END OF FILE