Welcome to the CHICKEN Scheme pasting service

(define-syntax inclub
  (syntax-rules ()
    ((inclub file)
     (cond-expand
      (compiling
       (include file))
      (else
       (let ((install-path
              (filepath:drop-file-name
               (if (symbolic-link? (program-name))
                   (read-symbolic-link (program-name) #t)
                   (program-name)))))
         (load (filepath:join-path (list install-path file)))))))))