From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 16 Jul 1988 21:47:47 +0000 (+0000)
Subject: Procedure `primitive-datum' now called `object-datum'.
X-Git-Tag: 20090517-FFI~12650
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cb37d5012eeddb18d6b31e857d240a0844689288;p=mit-scheme.git

Procedure `primitive-datum' now called `object-datum'.
---

diff --git a/v7/src/compiler/machines/bobcat/dassm1.scm b/v7/src/compiler/machines/bobcat/dassm1.scm
index 15fa1bfb6..cf1384926 100644
--- a/v7/src/compiler/machines/bobcat/dassm1.scm
+++ b/v7/src/compiler/machines/bobcat/dassm1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/dassm1.scm,v 4.6 1988/06/15 20:47:59 jrm Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/dassm1.scm,v 4.7 1988/07/16 21:47:47 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -90,7 +90,7 @@ MIT in each case. |#
          (lambda (info)
 	   (fluid-let ((disassembler/write-offsets? 	true)
 		       (disassembler/write-addresses? 	true)
-		       (disassembler/base-address (primitive-datum the-block)))
+		       (disassembler/base-address (object-datum the-block)))
 	     (newline)
 	     (newline)
 	     (disassembler/write-compiled-code-block the-block info)))