Merge pull request #407 from max19/dragonfix

Dragon4 fix
This commit is contained in:
Ted Blackman 2018-02-16 14:01:15 -08:00 committed by GitHub
commit 958fbdb649
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -2226,7 +2226,7 @@
=+ ^= q %+ max
?: (gth m prc) (^sub m prc) 0 :: reduce precision
%- abs:si ?: =(den %i) --0 :: enforce min. exp
?: =((cmp:si e.a emn) -1) (dif:si emn e.a) --0
?: =((cmp:si e.a emn) -1) (dif:si emn e.a) --0
=^ b a :- (end 0 q a.a)
a(e (sum:si e.a (sun:si q)), a (rsh 0 q a.a))
::