From cb37d5012eeddb18d6b31e857d240a0844689288 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 16 Jul 1988 21:47:47 +0000 Subject: [PATCH] Procedure `primitive-datum' now called `object-datum'. --- v7/src/compiler/machines/bobcat/dassm1.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))) -- 2.25.1