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 {
             });
         }
     }
+    pub fn unwrap_integer(self) -> i64 {
+        match self {
+            Self::Integer(x) => x,
+            Self::Float(x) => x.floor() as i64, // lossy
+        }
+    }
 }
 
 impl Add for LispNumber {