Here is another example:
--- mod1.scm ---
(define-module (mod1))
(export myproc)
(define (myproc0)
(display "Hello\n"))
--- end ---
--- mod2.scm ---
(define-module (mod2))
(export myproc2)
(use-modules (mod1))
(define (myproc2)
(display "Hello again\n"))
--- end ---
--- program.scm ---
(use-modules (mod1)
(mod2))
(define (main args)
(myproc))
--- end ---
I compiled this example with the following commands:
--- cut here ---
export GUILE_LOAD_COMPILED_PATH=.
guild compile --warn=unbound-variable -o mod1.go mod1.scm
guild compile --warn=unbound-variable -o mod2.go mod2.scm
--- cut here ---
The compiler gives no warnings and running "guile -e main -s
program.scm" gives the following error:
--- cut here ---
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /home/tohoyn/tyo/omat/ohj/scheme/export-test3/program.scm
;;; compiled
/home/tohoyn/git/savannah/guile/cache/guile/ccache/3.0-LE-8-4.7/home/tohoyn/tyo/omat/ohj/scheme/export-test3/program.scm.go
Backtrace:
In ice-9/boot-9.scm:
1762:12 4 (with-exception-handler _ _ #:unwind? _ # _)
In unknown file:
3 (apply-smob/0 #<thunk 7f2fda699300>)
In ice-9/boot-9.scm:
731:2 2 (call-with-prompt _ _ #<procedure default-prompt-handle…>)
In ice-9/eval.scm:
619:8 1 (_ #(#(#<directory (guile-user) 7f2fda69cc80>)))
In /home/tohoyn/tyo/omat/ohj/scheme/export-test3/program.scm:
6:3 0 (main _)
/home/tohoyn/tyo/omat/ohj/scheme/export-test3/program.scm:6:3: In
procedure main:
Unbound variable: myproc
--- cut here ---
- Tommi Höynälänmaa
--
Kotisivu / Homepage: http://www.iki.fi/tohoyn/
Sähköposti / E-Mail: tommi.hoynalan...@iki.fi
GPG-sormenjälki / GPG fingerprint:
55F4 2477 7155 3528 5CB2 2B7A BB86 1FDE 4046 0F83
FT, Debian-ylläpitäjä / PhD, Debian Maintainer
