scx/scheme/load-scx.scm.in

18 lines
509 B
Scheme

(config)
(load "@scxschemedir@/configure.scm")
(user)
(load-package 'dynamic-externals)
(open 'dynamic-externals)
(open 'external-calls)
(load-package 'configure)
(open 'configure)
(run '(let ((initializer-name "scx_init_xlib")
(module-file (string-append "@scxlibdir@/" @scxhost@ "/libscx.so")))
(dynamic-load module-file)
(call-external (get-external initializer-name))))
(config)
(load "@scxschemedir@/xlib/xlib-interfaces.scm")
(load "@scxschemedir@/xlib/xlib-packages.scm")