From 60caf78c5c0691df1a7bc40a920f710523dded9b Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 11 Feb 1998 21:53:17 +0000
Subject: [PATCH] Fix bug where char* was refusing strings.

---
 v7/src/win32/win_ffi.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)))
-- 
2.25.1