diff options
Diffstat (limited to 'src/lisp/number.rs')
-rw-r--r-- | src/lisp/number.rs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/lisp/number.rs b/src/lisp/number.rs index 0ce5ac0..4ca890a 100644 --- a/src/lisp/number.rs +++ b/src/lisp/number.rs | |||
@@ -26,6 +26,12 @@ impl LispNumber { | |||
26 | }); | 26 | }); |
27 | } | 27 | } |
28 | } | 28 | } |
29 | pub fn unwrap_integer(self) -> i64 { | ||
30 | match self { | ||
31 | Self::Integer(x) => x, | ||
32 | Self::Float(x) => x.floor() as i64, // lossy | ||
33 | } | ||
34 | } | ||
29 | } | 35 | } |
30 | 36 | ||
31 | impl Add for LispNumber { | 37 | impl Add for LispNumber { |