From e79e9688310d0b7aa011ac94e1efc6f5661e5d73 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 29 Mar 2003 05:54:59 +0000 Subject: [PATCH] Fix another bug hidden by the old type-descriptor name of defstruct. --- v7/src/win32/win_ffi.scm | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) diff --git a/v7/src/win32/win_ffi.scm b/v7/src/win32/win_ffi.scm index 1f9c20376..8fac2ec91 100644 --- a/v7/src/win32/win_ffi.scm +++ b/v7/src/win32/win_ffi.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: win_ffi.scm,v 1.11 2003/02/14 18:28:35 cph Exp $ +$Id: win_ffi.scm,v 1.12 2003/03/29 05:54:59 cph Exp $ -Copyright (c) 1993, 1999, 2001, 2002 Massachusetts Institute of Technology +Copyright 1993,1994,1998,2001,2002,2003 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -107,17 +107,18 @@ USA. ((14) (call-case 14)) ((15) (call-case 15)) (else - (lambda args - (if (= (length args) arg-count) - (result-type - (apply %call-foreign-function - (module-entry/machine-address module-entry) - (map (lambda (f x) (f x)) arg-types args))) - ((access error system-global-environment) - "Wrong arg count for foreign function" - name - (length args) - (list 'requires arg-count)))))))) + (lambda (module-entry) + (lambda args + (if (= (length args) arg-count) + (result-type + (apply %call-foreign-function + (module-entry/machine-address module-entry) + (map (lambda (f x) (f x)) arg-types args))) + ((access error system-global-environment) + "Wrong arg count for foreign function" + name + (length args) + (list 'requires arg-count))))))))) (parameterize-with-module-entry procedure lib name))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- 2.25.1