From b59eebc92b0919e90f222e674dd1491f9266f4a6 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 7 Sep 1990 22:35:43 +0000 Subject: [PATCH] Fix typos in methods for `fixnum-quotient' and `fixnum-remainder'. --- v7/src/compiler/machines/bobcat/lapgen.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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))) -- 2.25.1