From e026f80b1582bb3da5cbc8ae93f887c729929030 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Sat, 8 Nov 2003 12:42:40 +0000
Subject: [PATCH] yp as a dynamic external --- code for loading

---
 scheme/load-yp.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 scheme/load-yp.scm

diff --git a/scheme/load-yp.scm b/scheme/load-yp.scm
new file mode 100644
index 0000000..7b544d8
--- /dev/null
+++ b/scheme/load-yp.scm
@@ -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")
+
+
+    
\ No newline at end of file