Artifact b6730203d0a6138434fac2e90971a3fa11b7fefb:
- File configf-testing/a.scm — part of check-in [3decad145b] at 2019-11-11 22:29:20 on branch v1.65-try3 — got configf testcase to show the problem (user: matt, size: 301) [annotate] [blame] [check-ins using] [more...]
(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)) )