2005-02-08 22:02:44 -05:00
|
|
|
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
|
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
2005-12-13 17:33:58 -05:00
|
|
|
IN: kernel-internals
|
2006-05-05 21:41:57 -04:00
|
|
|
USING: kernel namespaces math ;
|
2005-12-13 17:33:58 -05:00
|
|
|
|
2006-01-26 23:01:14 -05:00
|
|
|
: bootstrap-cell \ cell get ; inline
|
|
|
|
|
: cells cell * ; inline
|
|
|
|
|
: bootstrap-cells bootstrap-cell * ; inline
|
|
|
|
|
|
2005-12-13 17:33:58 -05:00
|
|
|
: cell-bits 8 cells ; inline
|
2006-03-19 20:28:07 -05:00
|
|
|
: bootstrap-cell-bits 8 bootstrap-cells ; inline
|
2005-12-13 17:33:58 -05:00
|
|
|
|
2006-05-05 21:41:57 -04:00
|
|
|
: tag-address ( x tag -- tagged ) swap tag-bits shift bitor ;
|
|
|
|
|
: tag-header ( id -- tagged ) object-tag tag-address ;
|
|
|
|
|
|
2004-09-07 23:47:18 -04:00
|
|
|
IN: math
|
|
|
|
|
|
2005-10-29 23:25:38 -04:00
|
|
|
: i C{ 0 1 } ; inline
|
|
|
|
|
: -i C{ 0 -1 } ; inline
|
2004-09-07 23:47:18 -04:00
|
|
|
: e 2.7182818284590452354 ; inline
|
|
|
|
|
: pi 3.14159265358979323846 ; inline
|
2005-12-10 01:02:13 -05:00
|
|
|
: epsilon 2.2204460492503131e-16 ; inline
|
2006-05-14 20:05:57 -04:00
|
|
|
: first-bignum 1 bootstrap-cell-bits tag-bits - 1- shift ;
|
|
|
|
|
: most-positive-fixnum first-bignum 1- >fixnum ;
|
|
|
|
|
: most-negative-fixnum first-bignum neg >fixnum ;
|
