#!/usr/bin/guile \
-e main -s
!#

;;; Set %load-path
(eval-when
 (compile load eval)
 (let ((%current-filename (current-filename)))
   (if %current-filename
       (let ((%current-path (dirname %current-filename)))
         (if (not (memq %current-path %load-path))
             (add-to-load-path %current-path))))))

;;; Fake main for "-e main" option of Guile
(define (main . args)
  (let ((module (resolve-module '(test-load))))
    (apply (module-ref module 'main) args)))

;;; Module
(define-module (test-load)
  #:use-module (srfi srfi-64)
  #:export (main))

;;; Real main
(define (main args) #f)
