From 97cdbd492ee421b8d8e75e71d37492eff25fe88f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 31 Jan 2010 23:21:41 -0800 Subject: [PATCH] Eliminate open-coding of QUOTIENT and REMAINDER. --- src/compiler/rtlgen/opncod.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/compiler/rtlgen/opncod.scm b/src/compiler/rtlgen/opncod.scm index 97bb36766..5ec1e6578 100644 --- a/src/compiler/rtlgen/opncod.scm +++ b/src/compiler/rtlgen/opncod.scm @@ -1631,8 +1631,6 @@ USA. ((integer-add &+) 'plus-fixnum) ((integer-subtract &-) 'minus-fixnum) ((integer-multiply &*) 'multiply-fixnum) - ((integer-quotient quotient) 'fixnum-quotient) - ((integer-remainder remainder) 'fixnum-remainder) ((integer-add-1 1+) 'one-plus-fixnum) ((integer-subtract-1 -1+) 'minus-one-plus-fixnum) ((integer-negate) 'fixnum-negate) @@ -1646,9 +1644,9 @@ USA. (for-each (lambda (generic-op) (generic-binary-operator generic-op)) - '(&+ &- &* #| &/ |# QUOTIENT REMAINDER - INTEGER-ADD INTEGER-SUBTRACT INTEGER-MULTIPLY - INTEGER-QUOTIENT INTEGER-REMAINDER)) + ;; Don't add any division operators here. The open-coding + ;; doesn't test for divide-by-zero. + '(&+ &- &* INTEGER-ADD INTEGER-SUBTRACT INTEGER-MULTIPLY)) (for-each (lambda (generic-op) (generic-binary-predicate generic-op)) -- 2.25.1