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

fixed typo, renamed lookup-shared-binding to lookup-shared-value

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

8
ffi-tools/ffi-tools.scm
View File

@ -98,13 +98,13 @@
;;; generating scheme code ;;; generating scheme code
(define (generate-binding constant) (define (generate-binding constant)
(format "(define ~a (lookup-shared-binding \"~a\"))~%" (format "(define ~a (lookup-shared-value \"~a\"))~%"
(constant-scheme-name constant) (constant-scheme-name constant)
(constant-c-value-name constant))) (constant-c-value-name constant)))
(define (generate-finite-type-definition ft-name name-converter constants) (define (generate-finite-type-definition ft-name name-converter constants)
(let ((predicate-name (string-append ft-name "-object?")) (let ((predicate-name (string-append ft-name "-object?"))
(elements-name (string-append ft-name "-elments")) (elements-name (string-append ft-name "-elements"))
(name-name (string-append ft-name "-name")) (name-name (string-append ft-name "-name"))
(index-name (string-append ft-name "-index")) (index-name (string-append ft-name "-index"))
(id-name (string-append ft-name "-id"))) (id-name (string-append ft-name "-id")))
@ -114,7 +114,7 @@
" (id)~%" " (id)~%"
" ~a~% ~a~% ~a~% ~a~%" " ~a~% ~a~% ~a~% ~a~%"
" (~a)~%" " (~a)~%"
" ~a)~%~%") " (~a))~%~%")
ft-name ft-name ft-name ft-name
predicate-name elements-name name-name index-name predicate-name elements-name name-name index-name
(string-append "id " id-name) (string-append "id " id-name)
@ -126,7 +126,7 @@
constants))) constants)))
(define (generate-finite-type-item name-converter constant) (define (generate-finite-type-item name-converter constant)
(format " (~a\t(lookup-shared-binding \"~a\"))~%" (format " (~a\t(lookup-shared-value \"~a\"))~%"
(name-converter constant) (name-converter constant)
(constant-c-value-name constant))) (constant-c-value-name constant)))