From 509d87e4704e0bfac8d23fb210bd9dcb9195d63c Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 19 Aug 1992 13:36:01 +0000 Subject: [PATCH] Fix bug in fixnum-remainder. --- v7/src/compiler/machines/spectrum/rulfix.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/spectrum/rulfix.scm b/v7/src/compiler/machines/spectrum/rulfix.scm index 5823226b6..d7bd66e67 100644 --- a/v7/src/compiler/machines/spectrum/rulfix.scm +++ b/v7/src/compiler/machines/spectrum/rulfix.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rulfix.scm,v 4.41 1992/08/19 13:25:46 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rulfix.scm,v 4.42 1992/08/19 13:36:01 jinx Exp $ Copyright (c) 1989-1992 Massachusetts Institute of Technology @@ -731,7 +731,7 @@ MIT in each case. |# (EXTRU (=) ,src 31 ,len ,tgt) (DEP () ,sign ,(- sgn-len 1) ,sgn-len ,tgt) ,@(if ovflw? - (LAP (SKIP)) + (LAP (SKIP (TR))) (LAP))))))))) ;;;; Predicates -- 2.25.1