File configf-testing/a.scm artifact b6730203d0 part of check-in 652f6c9323
(declare (unit a)) (module a * (import scheme chicken posix) (define (a:normalize-dir d) (if (and (file-exists? d) (directory? d)) (let ((curr (current-directory))) (change-directory d) (let ((nd (current-directory))) (change-directory curr) nd)) d)) )