From a94e6f2ea98db62f110d021d173878c97549e548 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 10 Mar 2010 02:18:05 +0000
Subject: [PATCH] fix (_bytes o n) as an FFI result type

svn: r18502
---
 collects/scheme/foreign.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scheme/foreign.ss b/collects/scheme/foreign.ss
index d0aebc32e0..3d7b5b2225 100644
--- 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)))]