Adding a stub for this SRFI

srfi/143.sld

@@ -0,0 +1,63 @@
+;;;; 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); ")
+  ))
+