From 7eb2ac75ab8537b7d4d3eab24fa50f10a74b741b Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 14 Aug 1991 02:02:53 +0000
Subject: [PATCH] Add FLOATING-VECTOR-LENGTH.

---
 v7/src/microcode/dfloat.c | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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));
+}
-- 
2.25.1