! Copyright (C) 2004, 2005 Slava Pestov. ! See http://factor.sf.net/license.txt for BSD license. IN: kernel-internals USING: namespaces math ; : bootstrap-cell \ cell get ; inline : cells cell * ; inline : bootstrap-cells bootstrap-cell * ; inline : cell-bits 8 cells ; inline IN: math : i C{ 0 1 } ; inline : -i C{ 0 -1 } ; inline : e 2.7182818284590452354 ; inline : pi 3.14159265358979323846 ; inline : epsilon 2.2204460492503131e-16 ; inline : first-bignum 1 cell-bits tag-bits - 1- shift ; inline : most-positive-fixnum first-bignum 1- >fixnum ; inline : most-negative-fixnum first-bignum neg >fixnum ; inline