From 7e511ef8e4183492e370d4815d50e9e6a546fd85 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 2 Apr 2023 22:39:25 +0900 Subject: [PATCH] typo s!fx+*/carry!fx*/carry!g (issue #908) --- lib/srfi/143.sld | 2 +- lib/srfi/143/fixnum.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/srfi/143.sld b/lib/srfi/143.sld index e780b286..a24102b6 100644 --- a/lib/srfi/143.sld +++ b/lib/srfi/143.sld @@ -23,7 +23,7 @@ fxzero? fxpositive? fxnegative? fxodd? fxeven? fxmax fxmin fx+ fx- fxneg fx* fxabs fxsquare fxsqrt fxquotient fxremainder - fx+/carry fx-/carry fx+*/carry + fx+/carry fx-/carry fx*/carry fxnot fxand fxior fxxor fxarithmetic-shift fxarithmetic-shift-left fxarithmetic-shift-right diff --git a/lib/srfi/143/fixnum.scm b/lib/srfi/143/fixnum.scm index e79b3e83..c68e4a60 100644 --- a/lib/srfi/143/fixnum.scm +++ b/lib/srfi/143/fixnum.scm @@ -41,7 +41,7 @@ (call-with-values (lambda () (balanced/ d (expt 2 fx-width))) (lambda (q r) (values r q))))) -(define (fx+*/carry i j k) +(define (fx*/carry i j k) (let ((s (+ (* i j) k))) (call-with-values (lambda () (balanced/ s (expt 2 fx-width))) (lambda (q r) (values r q)))))