From 3f7b316753298c9d65a9e17a281345bad810ef91 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 13 Dec 1988 17:45:25 +0000 Subject: [PATCH] Rule for (OVERFLOW-TEST) must return some code. Before, it was winning entirely by accident. --- v7/src/compiler/machines/bobcat/rules2.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/rules2.scm b/v7/src/compiler/machines/bobcat/rules2.scm index 54692a746..f3d9bb49b 100644 --- a/v7/src/compiler/machines/bobcat/rules2.scm +++ b/v7/src/compiler/machines/bobcat/rules2.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules2.scm,v 4.6 1988/10/20 18:24:59 markf Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules2.scm,v 4.7 1988/12/13 17:45:25 cph Rel $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -146,7 +146,8 @@ MIT in each case. |# (define-rule predicate (OVERFLOW-TEST) - (set-standard-branches! 'VS)) + (set-standard-branches! 'VS) + (LAP)) (define-rule predicate (EQ-TEST (REGISTER (? register-1)) (REGISTER (? register-2))) -- 2.25.1