From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 29 Apr 1987 15:41:59 +0000 (+0000)
Subject: Define variables to contain maximum primitive numbers.
X-Git-Tag: 20090517-FFI~13568
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f4fe480e524531589c7d586b18d6b5412af45966;p=mit-scheme.git

Define variables to contain maximum primitive numbers.
---

diff --git a/v7/src/runtime/utabs.scm b/v7/src/runtime/utabs.scm
index 3a1c0a965..e41ddf3cb 100644
--- a/v7/src/runtime/utabs.scm
+++ b/v7/src/runtime/utabs.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/utabs.scm,v 13.45 1987/04/15 05:07:31 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/utabs.scm,v 13.46 1987/04/29 15:41:59 cph Rel $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -63,6 +63,8 @@
 (define microcode-termination)
 (define microcode-termination-name)
 
+(define number-of-internal-primitive-procedures)
+(define number-of-external-primitive-procedures)
 (define make-primitive-procedure)
 (define primitive-procedure?)
 (define primitive-procedure-name)
@@ -322,6 +324,10 @@
   (set! primitives-slot
 	(fixed-objects-vector-slot 'MICROCODE-PRIMITIVES-VECTOR))
   (set! primitive-type-code (microcode-type 'PRIMITIVE))
+  (set! number-of-internal-primitive-procedures
+	(vector-length (vector-ref fixed-objects primitives-slot)))
+  (set! number-of-external-primitive-procedures
+	(car (get-external-counts)))
 
   (set! external-type-code (microcode-type 'PRIMITIVE-EXTERNAL))