;;;; Cyclone Scheme
;;;; https://github.com/justinethier/cyclone
;;;;
;;;; Copyright (c) 2014-2016, Justin Ethier
;;;; All rights reserved.
;;;;
;;;; This module is (currently) a stub of SRFI 143.
;;;; Note the SRFI is still in DRAFT status.
;;;;
(define-library (srfi 143)
  (import (scheme base))
  (export
    fx-width
    fx-greatest
    fx-least
    fixnum?
    fxzero? fxpositive? fxnegative? fxodd? fxeven?
    fx= fx< fx> fx<= fx>=
    fxmax fxmin
    fx+ fx- fx*
    fxabs fxsquare fxsqrt fxexpt
    fx+/carry
    fx-/carry
    fx*+/carry
    fxfloor/ fxfloor-quotient fxfloor-remainder
    fxceiling/ fxceiling-quotient fxceiling-remainder
    fxtruncate/ fxtruncate-quotient fxtruncate-remainder
    fxround/ fxround-quotient fxround-remainder
    fxeuclidean/ fxeuclidean-quotient fxeuclidean-remainder
    fxbalanced/ fxbalanced-quotient fxbalanced-remainder
    fxnot
    fxand   fxior   fxxor   fxeqv
    fxnand  fxnor 
    fxandc1 fxandc2 fxorc1  fxorc2 
    farithmetic-shift fxbit-count fxinteger-length

    fxif 
    fxbit-set? fxcopy-bit fxbit-swap
    fxany-bit-set? fxevery-bit-set?
    fxfirst-set-bit

    fxbit-field fxbit-field-any? fxbit-field-every?
    fxbit-field-clear fxbit-field-set
    fxbit-field-replace  fbit-field-replace-same
    fxbit-field-rotate fxbit-field-reverse
    fxbit-field-append

    fixnum->list list->fixnum
    fixnum->vector vector->fixnum
    fxbits
    fxfold fxfor-each fxunfold
    fxlogical-shift
  )
  (begin
    (define (fx-width) 31)
    (define (fx-greatest) 1073741823)
    (define (fx-least)   -1073741824)
    (define-c fixnum?
      "(void *data, int argc, closure _, object k, object obj)"
      " return_closcall1(data, k, 
          obj_is_int(obj) ? boolean_t : boolean_f); ")
  ))