From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 14 Oct 1987 22:03:14 +0000 (+0000)
Subject: Fix bug: missing integration declarations prevent proper inline coding
X-Git-Tag: 20090517-FFI~13078
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d0b1abd18b1b1a6a60de0f3baff2988dd270fcf4;p=mit-scheme.git

Fix bug: missing integration declarations prevent proper inline coding
of structure accessors.
---

diff --git a/v7/src/runtime/defstr.scm b/v7/src/runtime/defstr.scm
index b4c2ae9ea..07e6c3299 100644
--- a/v7/src/runtime/defstr.scm
+++ b/v7/src/runtime/defstr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/defstr.scm,v 1.3 1987/08/24 22:22:04 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/defstr.scm,v 1.4 1987/10/14 22:03:14 cph Rel $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -331,6 +331,7 @@ functionality is not implemented.
 		       (slot/name slot))))
 	      `((DECLARE (INTEGRATE-OPERATOR ,accessor-name))
 		(DEFINE (,accessor-name STRUCTURE)
+		  (DECLARE (INTEGRATE STRUCTURE))
 		  ,(case (structure/scheme-type structure)
 		     ((VECTOR)
 		      `((ACCESS VECTOR-REF ,system-global-environment)
@@ -343,7 +344,7 @@ functionality is not implemented.
 		     (else
 		      (error "Unknown scheme type" structure)))))))
 	  (structure/slots structure)))
-
+
 (define (settor-definitions structure)
   (mapcan (lambda (slot)
 	    (if (slot/read-only? slot)
@@ -359,6 +360,7 @@ functionality is not implemented.
 					  '!))))
 		  `((DECLARE (INTEGRATE-OPERATOR ,settor-name))
 		    (DEFINE (,settor-name STRUCTURE VALUE)
+		      (DECLARE (INTEGRATE STRUCTURE VALUE))
 		      ,(case (structure/scheme-type structure)
 			 ((VECTOR)
 			  `((ACCESS VECTOR-SET! ,system-global-environment)