From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 21 Nov 1989 23:32:09 +0000 (+0000)
Subject: Remove the patch in comentry_lexpr_apply used to temporarily overcome
X-Git-Tag: 20090517-FFI~11681
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=285e8810355619773f0ea3a48655af17624152ad;p=mit-scheme.git

Remove the patch in comentry_lexpr_apply used to temporarily overcome
the fact that dynamic links were not correctly preserved.
The compiler has been fixed, and the patch is no longer necessary.
---

diff --git a/v7/src/microcode/cmpauxmd/mc68k.m4 b/v7/src/microcode/cmpauxmd/mc68k.m4
index 01350716c..2f8e0b722 100644
--- a/v7/src/microcode/cmpauxmd/mc68k.m4
+++ b/v7/src/microcode/cmpauxmd/mc68k.m4
@@ -1,6 +1,6 @@
 ### -*-Midas-*-
 ###
-###	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/mc68k.m4,v 1.3 1989/11/20 23:19:36 jinx Exp $
+###	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/mc68k.m4,v 1.4 1989/11/21 23:32:09 jinx Exp $
 ###
 ###	Copyright (c) 1989 Massachusetts Institute of Technology
 ###
@@ -367,7 +367,6 @@ define_debugging_label(comentry_lexpr_apply)
 	mov.l	%a0,%d1
 	mov.w	%d0,%d2
 	ext.l	%d2
-	mov.l	dlink,regblock_val(regs)
 	call_utility(lexpr_apply)
 
 ### comentry_primitive_apply