Megatest

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

  )