scsh-conservatory
/
scsh-ldap
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ fixed typo, fixed module definition

This commit is contained in:
eknauel 2004-01-15 16:32:58 +00:00
parent 2eb5139b74
commit 5791065071
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ffi-tools/ffi-tools-rts.scm
View File

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