Fix typos in methods for `fixnum-quotient' and `fixnum-remainder'.

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index 34f5e583b50afc68b90dc412222a097b8e171b35..5e7694e4b770c9e844c87f2b843d8390e3d105e5 100644 (file)
--- a/v7/src/compiler/machines/bobcat/lapgen.scm
+++ b/v7/src/compiler/machines/bobcat/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.35 1990/07/20 15:53:40 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.36 1990/09/07 22:25:16 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -800,8 +800,7 @@ MIT in each case. |#
                    ,@(word->fixnum target)))))
          (else
           ;; This includes negative n
-          (LAP (DIV S L (& ,n) ,target))))))
-
+          (LAP (DIV S L (& ,(* n fixnum-1)) ,target))))))
 (define-fixnum-method 'FIXNUM-REMAINDER fixnum-methods/2-args
   (lambda (target source)
     (let ((temp (reference-temporary-register! 'DATA)))
@@ -837,7 +836,9 @@ MIT in each case. |#
                  (LAP (BFEXTS ,target (& 0) (& 1) ,sign)
                       (BFEXTU ,target (& ,(- 32 nbits)) (& ,nbits) ,target)
                       (B EQ (@PCR ,label))
-                      (BFINS ,target (& 0) (& ,shift) ,sign)))))))))\f
+                      (BFINS ,target (& 0) (& ,shift) ,sign)
+                      (LABEL ,label)))))))))
+\f
 ;;;; Flonum Operators
 
 (define (define-flonum-method operator methods method)