suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 6bd9e04589dfc1248abfca1b8e9c9f678aed9954
This commit is contained in:
Eli Barzilay 2004-08-12 21:54:28 +00:00
parent ecf7f4583e
commit f6b82c3754
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mzlib/foreign.ss
View File

@ -14,7 +14,6 @@
_float _double _float _double
_bool _pointer _scheme) _bool _pointer _scheme)
(provide define*)
(define-syntax define* (define-syntax define*
(syntax-rules () (syntax-rules ()
[(_ (name . args) body ...) [(_ (name . args) body ...)
@ -109,11 +108,11 @@
[var (p)])))))])) [var (p)])))))]))
;; Used to convert strings and symbols to a byte-string that names an object ;; Used to convert strings and symbols to a byte-string that names an object
(define (get-ffi-obj-name name objname) (define (get-ffi-obj-name who objname)
(cond [(bytes? objname) objname] (cond [(bytes? objname) objname]
[(symbol? objname) (get-ffi-obj-name name (symbol->string objname))] [(symbol? objname) (get-ffi-obj-name who (symbol->string objname))]
[(string? objname) (string->bytes/utf-8 objname)] [(string? objname) (string->bytes/utf-8 objname)]
[else (raise-type-error name "object-name" objname)])) [else (raise-type-error who "object-name" objname)]))
;; This table keeps references to values that are set in foreign libraries, to ;; This table keeps references to values that are set in foreign libraries, to
;; avoid them being GCed. See set-ffi-obj! above. ;; avoid them being GCed. See set-ffi-obj! above.