(import chicken scheme)
(use extras filepath posix)

(define (realpath filename)
  (if (symbolic-link? filename)
      (read-symbolic-link filename #t)
      filename))