From 06e08750d101d82a6aa3e01a1fabf00c59304287 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 5 Aug 2005 20:04:19 +0000 Subject: [PATCH] Eliminate some now-unused bindings. --- v7/src/runtime/make.scm | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) 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 '()) -- 2.25.1