69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
get-eval-string
squelch-debug-prints
;; misc
realpath
find-chicken-lib
)
(import scheme chicken data-structures extras ports files)
(use posix typed-records srfi-18 pathname-expand posix-extras)
(use regex regex-case srfi-69 srfi-1 directory-utils extras srfi-13 )
(use srfi-69)
(import posix)
;; stub debug printers overridden by set-debug-printers
(define (debug:print n e . args)
(apply print args))
(define (debug:print-info n e . args)
(apply print "INFO: " args))
|
|
|
|
|
|
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
get-eval-string
squelch-debug-prints
;; misc
realpath
find-chicken-lib
)
(import scheme (chicken base) (chicken string) (chicken file) (chicken port))
(import typed-records srfi-18 pathname-expand posix-extras)
(import regex regex-case srfi-69 srfi-1 directory-utils extras srfi-13 )
(import srfi-69)
(import posix)
;; stub debug printers overridden by set-debug-printers
(define (debug:print n e . args)
(apply print args))
(define (debug:print-info n e . args)
(apply print "INFO: " args))
|