From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 Aug 2005 20:04:19 +0000 (+0000)
Subject: Eliminate some now-unused bindings.
X-Git-Tag: 20090517-FFI~1232
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=06e08750d101d82a6aa3e01a1fabf00c59304287;p=mit-scheme.git

Eliminate some now-unused bindings.
---

diff --git a/v7/src/runtime/make.scm b/v7/src/runtime/make.scm
index 7f288873e..9d8ad6f08 100644
--- a/v7/src/runtime/make.scm
+++ b/v7/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 14.100 2005/08/05 20:02:56 cph Exp $
+$Id: make.scm,v 14.101 2005/08/05 20:04:19 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1996,1997,1998,2000 Massachusetts Institute of Technology
@@ -99,7 +99,6 @@ USA.
 (define-integrable exit-with-value (ucode-primitive exit-with-value))
 (define-integrable file-exists? (ucode-primitive file-exists? 1))
 (define-integrable garbage-collect (ucode-primitive garbage-collect))
-(define-integrable get-primitive-name (ucode-primitive get-primitive-name))
 (define-integrable lexical-reference (ucode-primitive lexical-reference))
 (define-integrable link-variables (ucode-primitive link-variables 4))
 (define-integrable microcode-identify (ucode-primitive microcode-identify))
@@ -117,9 +116,6 @@ USA.
 (define-integrable get-fixed-objects-vector
   (ucode-primitive get-fixed-objects-vector))
 
-(define-integrable get-primitive-address
-  (ucode-primitive get-primitive-address))
-
 (define-integrable lexical-unreferenceable?
   (ucode-primitive lexical-unreferenceable?))
 
@@ -281,10 +277,6 @@ USA.
 (define (intern string)
   (string->symbol (string-downcase string)))
 
-(define (implemented-primitive-procedure? primitive)
-  (get-primitive-address (intern (get-primitive-name (object-datum primitive)))
-			 #f))
-
 (define fasload-purification-queue
   '())