From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 19 Mar 1987 17:19:06 +0000 (+0000)
Subject: The `integrate-primitive-procedures' declaration was looking up the
X-Git-Tag: 20090517-FFI~13665
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=36cf94b01a16418a59716a297e9e9f4f1c58a34e;p=mit-scheme.git

The `integrate-primitive-procedures' declaration was looking up the
name twice, resulting in a variable whose name was another variable.
---

diff --git a/v7/src/sf/pardec.scm b/v7/src/sf/pardec.scm
index 597a65367..487ac5094 100644
--- a/v7/src/sf/pardec.scm
+++ b/v7/src/sf/pardec.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/pardec.scm,v 3.2 1987/03/18 22:51:09 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/pardec.scm,v 3.3 1987/03/19 17:19:06 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -245,7 +245,7 @@ MIT in each case. |#
 (define (parse-primitive-specification block specification)
   (let ((finish
 	 (lambda (variable-name primitive-name)
-	   (return-2 (block/lookup-name block variable-name)
+	   (return-2 variable-name
 		     (constant->integration-info
 		      (make-primitive-procedure primitive-name))))))
     (cond ((and (pair? specification)