From: Nick Papadakis <edu/mit/csail/zurich/nick>
Date: Fri, 23 Jul 1993 19:43:45 +0000 (+0000)
Subject: Added FLOATING_VECTOR_ARG to support vectors of double floats
X-Git-Tag: 20090517-FFI~8179
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a1304de920de91e4551c09c3e6923e6ff485ba27;p=mit-scheme.git

Added FLOATING_VECTOR_ARG to support vectors of double floats
---

diff --git a/v7/src/microcode/prims.h b/v7/src/microcode/prims.h
index fc48ea496..d9449464b 100644
--- a/v7/src/microcode/prims.h
+++ b/v7/src/microcode/prims.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: prims.h,v 9.41 1993/06/24 07:09:20 gjr Exp $
+$Id: prims.h,v 9.42 1993/07/23 19:43:45 nick Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -130,3 +130,8 @@ extern long EXFUN (arg_ascii_integer, (int));
   ((VECTOR_P (ARG_REF (arg)))						\
    ? (ARG_REF (arg))							\
    : ((error_wrong_type_arg (arg)), ((SCHEME_OBJECT) 0)))
+
+#define FLOATING_VECTOR_ARG(arg)					\
+  ((FLONUM_P (ARG_REF (arg)))						\
+   ? ((double *) (VECTOR_LOC (ARG_REF(arg), 0)))			\
+   : ((error_wrong_type_arg (arg)), ((double *) 0)))