From e2b752e9232b5c0a378e3fe2931a4b6e636e64af Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 7 Nov 1988 23:24:32 +0000 Subject: [PATCH] Fix incorrect reference. --- v7/src/compiler/back/mermap.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/back/mermap.scm b/v7/src/compiler/back/mermap.scm index fac1e6fb5..60740a127 100644 --- a/v7/src/compiler/back/mermap.scm +++ b/v7/src/compiler/back/mermap.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/mermap.scm,v 1.1 1988/11/07 13:57:49 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/mermap.scm,v 1.2 1988/11/07 23:24:32 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -69,7 +69,7 @@ MIT in each case. |# (positive? (vector-ref (car entries) 1)) aliases) map-entries) - (eqv-set-delete map-registers aliases))))))) + (eqv-set-difference map-registers aliases))))))) (define (eliminate-conflicting-aliases! entries) (for-each (lambda (conflicting-alias) -- 2.25.1