fix sign/1 (#2157)

mthom · Nov 15, 2023 · bcb68fc · bcb68fc
1 parent 4be320a
commit bcb68fc
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/forms.rs b/src/forms.rs
@@ -744,7 +744,11 @@ impl Number {
             Number::Float(f) => Number::Float(OrderedFloat(f.signum())),
             _ => {
                 if self.is_positive() {
-                    Number::Fixnum(Fixnum::build_with(1))
+		    if self.is_zero() {
+			Number::Fixnum(Fixnum::build_with(0))
+		    } else {
+			Number::Fixnum(Fixnum::build_with(1))
+		    }
                 } else if self.is_negative() {
                     Number::Fixnum(Fixnum::build_with(-1))
                 } else {