From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 9 Mar 1995 22:15:14 +0000 (+0000)
Subject: Added BIT-STRING-LENGTH to known operators.
X-Git-Tag: 20090517-FFI~6550
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c170fefdd0f34416af0f0dfb8c690a9fae56c061;p=mit-scheme.git

Added BIT-STRING-LENGTH to known operators.
---

diff --git a/v8/src/compiler/midend/fakeprim.scm b/v8/src/compiler/midend/fakeprim.scm
index a373dab6d..533b11b3f 100644
--- a/v8/src/compiler/midend/fakeprim.scm
+++ b/v8/src/compiler/midend/fakeprim.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: fakeprim.scm,v 1.6 1995/02/27 22:39:39 adams Exp $
+$Id: fakeprim.scm,v 1.7 1995/03/09 22:15:14 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -820,7 +820,7 @@ MIT in each case. |#
 			  '(SIDE-EFFECT-FREE)
 			  '(PROPER-PREDICATE))))
  (list not eq? null? false?
-       boolean? cell? pair? vector? %record? string?
+       boolean? cell? pair? vector? %record? string? bit-string?
        fixnum? index-fixnum? flo:flonum? object-type?
        fix:= fix:> fix:< fix:<= fix:>=
        fix:zero? fix:positive? fix:negative? 
@@ -847,6 +847,7 @@ MIT in each case. |#
  (list make-cell cons vector %record string-allocate flo:vector-cons
        system-pair-cons %record-length vector-length flo:vector-length
        object-type object-datum
+       bit-string-length
        (make-primitive-procedure 'PRIMITIVE-OBJECT-SET-TYPE)
        fix:-1+ fix:1+ fix:+ fix:- fix:*
        fix:quotient fix:remainder ; fix:gcd