yp as a dynamic external --- code for loading

This commit is contained in:
eknauel 2003-11-08 12:42:40 +00:00
parent fd728de93e
commit e026f80b15
1 changed files with 16 additions and 0 deletions

16
scheme/load-yp.scm Normal file
View File

@ -0,0 +1,16 @@
(user)
(open 'dynamic-externals)
(open 'external-calls)
(run
'(let ((initializer-name "scsh_yp_main")
(module-file "/Users/knauel/cool-stuff/scsh-yp/c/yp.dylib"))
(dynamic-load module-file)
(call-external (get-external initializer-name))))
(config)
(load "yp-interfaces.scm")
(load "yp-packages.scm")