=========================================================
eml.scm
=========================================================

#! /bin/sh
#| -*- scheme -*-
exec csi -s $0 "$@"
|#

(declare (uses wn))

(import chicken scheme extras)

(use
 filepath
 miscmacros
 posix)

(eval-when (eval)
  (define 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 "wn"))))




=========================================================
wn.scm
=========================================================

(declare (unit wn))



=========================================================
compiling
=========================================================

$ csc -c wn.scm
$ csc eml.scm wn.o -o eml