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

.

Browse Source 
original commit: 67f6b1aa85024e5c7c8eafd2173c3f113b17ed75
This commit is contained in:
Eli Barzilay 2004-05-29 05:24:42 +00:00
parent 96f1d779c1
commit a1eba23cd2
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/foreign.ss
View File

@ -210,7 +210,7 @@
(define* _symbol (make-ffi-type _string symbol->string string->symbol))
;; `file' type: path-expands a string.
(define* _file (make-ffi-type _string expand-path #f))
(define* _file (make-ffi-type _path expand-path #f))
;; `string/eof' type: converts an output #f (NULL) to an eof-object.
(define* _string/eof
@ -369,11 +369,11 @@
;; string. There is no need for other modes: i or io would be just like _bytes
;; since the string carries its size information (so there is no real need for
;; the `o', but it's there for consistency with the above macros).
(provide _bytes)
(define-syntax _bytes
(syntax-id-rules (_bytes o)
[_bytes (type: _string)]
[(_ o n) (type: _string
(provide (rename _bytes* _bytes))
(define-syntax _bytes*
(syntax-id-rules (_bytes* o)
[_bytes* (type: _bytes)]
[(_ o n) (type: _bytes
pre: (make-sized-byte-string (ffi-malloc n) n)
;; post is needed when this is used as a function output type
post: (x => (make-sized-byte-string x n)))]))