Megatest

items.import.scm at [5d8e30ec14]
Login

File attic_modular/items.import.scm artifact 4ca4bad73e part of check-in 5d8e30ec14


;;;; 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