From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 11 Feb 1998 21:53:17 +0000 (+0000)
Subject: Fix bug where char* was refusing strings.
X-Git-Tag: 20090517-FFI~4869
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=60caf78c5c0691df1a7bc40a920f710523dded9b;p=mit-scheme.git

Fix bug where char* was refusing strings.
---

diff --git a/v7/src/win32/win_ffi.scm b/v7/src/win32/win_ffi.scm
index 84547fe67..4536e41a0 100644
--- a/v7/src/win32/win_ffi.scm
+++ b/v7/src/win32/win_ffi.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: win_ffi.scm,v 1.4 1994/10/26 18:39:28 adams Exp $
+$Id: win_ffi.scm,v 1.5 1998/02/11 21:53:17 adams Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -327,7 +327,7 @@ MIT in each case. |#
   string?)
 
 (define-windows-type char*
-  (lambda (thing) (or (eq? thing #f) (string? #f))))
+  (lambda (thing) (or (eq? thing #f) (string? thing))))
 
 (define-windows-type handle
   (lambda (x) (or (eq? x #f) (int:integer? x)))