fix (_bytes o n) as an FFI result type

svn: r18502
2010-03-10 02:18:05 +00:00 · 2010-03-10 02:18:05 +00:00 · a94e6f2ea9
commit a94e6f2ea9
parent 14d1760abe
1 changed files with 1 additions and 1 deletions
--- a/collects/scheme/foreign.ss
+++ b/collects/scheme/foreign.ss
@ -1023,7 +1023,7 @@
 (provide (rename-out [_bytes* _bytes]))
 (define-fun-syntax _bytes*
  (syntax-id-rules (o)
-    [(_ o n) (type: _bytes
+    [(_ o n) (type: _pointer
              pre:  (make-sized-byte-string (malloc n) n)
              ;; post is needed when this is used as a function output type
              post: (x => (make-sized-byte-string x n)))]