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