From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Sep 1990 22:35:43 +0000 (+0000)
Subject: Fix typos in methods for `fixnum-quotient' and `fixnum-remainder'.
X-Git-Tag: 20090517-FFI~11219
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b59eebc92b0919e90f222e674dd1491f9266f4a6;p=mit-scheme.git

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 5e7694e4b..80f066ba6 100644
--- 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.36 1990/09/07 22:25:16 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.37 1990/09/07 22:35:43 cph Rel $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -800,7 +800,9 @@ MIT in each case. |#
 		    ,@(word->fixnum target)))))
 	  (else
 	   ;; This includes negative n
-	   (LAP (DIV S L (& ,(* n fixnum-1)) ,target))))))
+	   (LAP (DIV S L (& ,(* n fixnum-1)) ,target)
+		(AS L L (& ,scheme-type-width) ,target))))))
+
 (define-fixnum-method 'FIXNUM-REMAINDER fixnum-methods/2-args
   (lambda (target source)
     (let ((temp (reference-temporary-register! 'DATA)))