Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

typo s!fx+*/carry!fx*/carry!g (issue #908)

Browse source
This commit is contained in:
Alex Shinn 2023-04-02 22:39:25 +09:00
parent 5826023de1
commit 7e511ef8e4
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/143.sld
View file

@ -23,7 +23,7 @@
fxzero? fxpositive? fxnegative? fxodd? fxeven? fxmax fxmin fxzero? fxpositive? fxnegative? fxodd? fxeven? fxmax fxmin
fx+ fx- fxneg fx* fxabs fxsquare fxsqrt fx+ fx- fxneg fx* fxabs fxsquare fxsqrt
fxquotient fxremainder fxquotient fxremainder
fx+/carry fx-/carry fx+*/carry fx+/carry fx-/carry fx*/carry
fxnot fxand fxior fxxor fxnot fxand fxior fxxor
fxarithmetic-shift fxarithmetic-shift-left fxarithmetic-shift fxarithmetic-shift-left
fxarithmetic-shift-right fxarithmetic-shift-right

2
lib/srfi/143/fixnum.scm
View file

@ -41,7 +41,7 @@
(call-with-values (lambda () (balanced/ d (expt 2 fx-width))) (call-with-values (lambda () (balanced/ d (expt 2 fx-width)))
(lambda (q r) (values r q))))) (lambda (q r) (values r q)))))
(define (fx+*/carry i j k) (define (fx*/carry i j k)
(let ((s (+ (* i j) k))) (let ((s (+ (* i j) k)))
(call-with-values (lambda () (balanced/ s (expt 2 fx-width))) (call-with-values (lambda () (balanced/ s (expt 2 fx-width)))
(lambda (q r) (values r q))))) (lambda (q r) (values r q)))))