+ fixed typo, fixed module definition
This commit is contained in:
parent
2eb5139b74
commit
5791065071
|
@ -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))))))
|
||||||
|
|
Loading…
Reference in New Issue