Fix bug in fixnum-remainder.

diff --git a/v7/src/compiler/machines/spectrum/rulfix.scm b/v7/src/compiler/machines/spectrum/rulfix.scm
index 5823226b67ec531790cc4d3b9db7662c2ccf62ee..d7bd66e67889944ac6c5d3f8bb5610ea3090ed66 100644 (file)
--- 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)))))))))
 \f
 ;;;; Predicates