From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 14 Aug 1991 02:02:53 +0000 (+0000)
Subject: Add FLOATING-VECTOR-LENGTH.
X-Git-Tag: 20090517-FFI~10368
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7eb2ac75ab8537b7d4d3eab24fa50f10a74b741b;p=mit-scheme.git

Add FLOATING-VECTOR-LENGTH.
---

diff --git a/v7/src/microcode/dfloat.c b/v7/src/microcode/dfloat.c
index 18681c767..542d4bd83 100644
--- a/v7/src/microcode/dfloat.c
+++ b/v7/src/microcode/dfloat.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/dfloat.c,v 1.1 1991/07/11 02:16:07 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/dfloat.c,v 1.2 1991/08/14 02:02:53 jinx Exp $
 
 Copyright (c) 1991 Massachusetts Institute of Technology
 
@@ -93,3 +93,13 @@ DEFINE_PRIMITIVE( "FLOATING-VECTOR-SET!", Prim_floating_vector_set,
   /* double value = *where; */
   PRIMITIVE_RETURN (SHARP_F);
 }
+
+DEFINE_PRIMITIVE ("FLOATING-VECTOR-LENGTH", Prim_floating_vector_length,
+		  1, 1, 0)
+{
+  SCHEME_OBJECT vector = (ARG_DOUBLE_VECTOR (1));
+  PRIMITIVE_HEADER (1);
+
+  PRIMITIVE_RETURN
+    (LONG_TO_UNSIGNED_FIXNUM ((VECTOR_LENGTH (vector)) / FLONUM_SIZE));
+}