Megatest

client.import.scm at [5d8e30ec14]
Login

File attic_modular/client.import.scm artifact 061cf4b1bb part of check-in 5d8e30ec14


;;;; client.import.scm - GENERATED BY CHICKEN 4.13.0 -*- Scheme -*-

(eval '(import
         scheme
         chicken
         data-structures
         extras
         ports
         srfi-18
         extras
         tcp
         s11n
         srfi-1
         posix
         regex
         srfi-69
         hostinfo
         md5
         message-digest
         matchable
         spiffy
         uri-common
         intarweb
         http-client
         spiffy-request-vars
         uri-common
         intarweb
         directory-utils
         postgresql))
(##sys#register-compiled-module
  'client
  (list)
  '((make-cdb:packet . client#make-cdb:packet)
    (make-db:test-data . client#make-db:test-data)
    (make-db:testmeta . client#make-db:testmeta)
    (make-db:mintest . client#make-db:mintest)
    (db:test-get-is-toplevel . client#db:test-get-is-toplevel)
    (db:test-make-full-name . client#db:test-make-full-name)
    (make-db:test . client#make-db:test)
    (*available-db* . client#*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