diff options
author | dos-reis <gdr@axiomatics.org> | 2014-08-17 09:15:57 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2014-08-17 09:15:57 +0000 |
commit | c50f5cd58337e96609479484c2cfd7fcd80db182 (patch) | |
tree | c7bda8ed377403803910cdc3ffddc1cab8b1cd49 /src/rt/Database.cc | |
parent | 92de8ff340378dbd50678babe98ac8a5ffd8bc9c (diff) | |
download | open-axiom-c50f5cd58337e96609479484c2cfd7fcd80db182.tar.gz |
OpenAxiom::VM::Fixnum is now a distinct type.
Diffstat (limited to 'src/rt/Database.cc')
-rw-r--r-- | src/rt/Database.cc | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/rt/Database.cc b/src/rt/Database.cc index ee620711..df6ec0a3 100644 --- a/src/rt/Database.cc +++ b/src/rt/Database.cc @@ -1,4 +1,4 @@ -// Copyright (C) 2013, Gabriel Dos Reis. +// Copyright (C) 2013-2014, Gabriel Dos Reis. // All rights reserved. // Written by Gabriel Dos Reis. // @@ -47,7 +47,8 @@ namespace OpenAxiom { auto x = reader.read(); auto offset = Lisp::retract_to_fixnum (Lisp::retract_to_pair(ctx.make_value(x))->head); - reader.position(offset); + auto n = FixnumBits(offset); + reader.position(n); toc = Lisp::retract_to_pair(ctx.make_value(reader.read())); } else if (auto data = Lisp::assoc(key, toc)) |