Megatest

a.scm at [0dd13b4980]
Login

File configf-testing/a.scm artifact b6730203d0 part of check-in 0dd13b4980


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

  )