From c50f5cd58337e96609479484c2cfd7fcd80db182 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 17 Aug 2014 09:15:57 +0000
Subject: OpenAxiom::VM::Fixnum is now a distinct type.

---
 src/rt/Lisp.cc | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'src/rt/Lisp.cc')

diff --git a/src/rt/Lisp.cc b/src/rt/Lisp.cc
index 12684181..6f125bf7 100644
--- a/src/rt/Lisp.cc
+++ b/src/rt/Lisp.cc
@@ -77,17 +77,17 @@ namespace OpenAxiom {
       integer_too_large(const Sexpr::IntegerSyntax& x) {
          std::string s { x.lexeme().begin(), x.lexeme().end() };
          throw IntegerOverflow{ s + " is too large for Fixnum; max value is "
-               + std::to_string(fixnum_maximum) };
+               + std::to_string(FixnumBits(Fixnum::maximum)) };
       }
 
-      constexpr auto fixmax_by_ten = fixnum_maximum / 10;
-      constexpr auto fixmax_lsd = fixnum_maximum % 10;
+      constexpr auto fixmax_by_ten = FixnumBits(Fixnum::maximum) / 10;
+      constexpr auto fixmax_lsd = FixnumBits(Fixnum::maximum) % 10;
 
       static Value
       construct(Evaluator* ctx, const Sexpr::IntegerSyntax& x) {
          bool neg = false;
          auto cur = x.lexeme().begin();
-         Fixnum val = 0;
+         FixnumBits val = 0;
          switch (*cur) {
          case '-': neg = true;
          case '+': ++cur;
@@ -102,12 +102,12 @@ namespace OpenAxiom {
                   val = 10 * val + d;
             }
             if (neg) {
-               if (val > fixnum_maximum)
+               if (val > FixnumBits(Fixnum::maximum))
                   integer_too_large(x);
                val = -val;
             }
          }
-         return VM::from_fixnum(val);
+         return VM::from_fixnum(Fixnum(val));
       }
 
       static Value
@@ -250,7 +250,7 @@ namespace OpenAxiom {
          if (v == nil)
             os << "NIL";
          else if (is_fixnum(v))
-            os << to_fixnum(v);
+            os << FixnumBits(to_fixnum(v));
          else if (auto p = to_pair_if_can(v))
             format(p, os);
          else if (auto s = to_string_if_can(v))
-- 
cgit v1.2.3