From 579106507134cca87c98a67fab3b5ceb7891dffe Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Thu, 15 Jan 2004 16:32:58 +0000
Subject: [PATCH] + fixed typo, fixed module definition

---
 ffi-tools/ffi-tools-rts.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ffi-tools/ffi-tools-rts.scm b/ffi-tools/ffi-tools-rts.scm
index 839f71c..bdd07ff 100644
--- a/ffi-tools/ffi-tools-rts.scm
+++ b/ffi-tools/ffi-tools-rts.scm
@@ -4,7 +4,7 @@
    make-finite-type-import-function))
 
 (define-structure ffi-tools-rts ffi-tools-rts-interface
-  (open scheme)
+  (open scheme srfi-23 external-calls)
   (begin
     
     (define-syntax lookup-shared-value
@@ -22,7 +22,7 @@
       (let ((alist (make-finite-type-alist elements id-proc)))
 	(lambda (id)
 	  (cond 
-	   ((assoc id alis) => cdr)
+	   ((assoc id alist) => cdr)
 	   (else
 	    (error "Could not map value to finite type "
 		   finite-type-name id))))))