+ fixed typo, fixed module definition

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))))))