Changeset 39174 in project

Timestamp:

11/08/20 18:04:27 (4 months ago)

Author:

Kon Lovett

Message:

multi-import is r7 undef, alignment

File:

• release/5/bitwise-utils/trunk/bitwise-utils.scm (modified) (2 diffs)

release/5/bitwise-utils/trunk/bitwise-utils.scm

@@ -40 +40 @@
   integer->list list->integer)
 
-
-(import scheme)
-(import (only (chicken base) declare sub1 add1 fixnum? foldl cut))
-(import (chicken type))
-(import (chicken foreign))
-(import (only (chicken bitwise)
-  integer-length arithmetic-shift bit->boolean
-  bitwise-not bitwise-and bitwise-ior))
+(import scheme
+        (only (chicken base) declare sub1 add1 fixnum? foldl cut)
+        (chicken type)
+        (chicken foreign)
+        (only (chicken bitwise) integer-length arithmetic-shift bit->boolean
+    bitwise-not bitwise-and bitwise-ior))
 
 ;;
@@ -53 +51 @@
 ;FIXME bitwise-split more like string-chop then string-split
 
-(: arithmetic-shift-left (integer fixnum --> integer))
-(: arithmetic-shift-right (integer fixnum --> integer))
-(: logical-shift-left (integer fixnum --> integer))
-(: logical-shift-right (integer fixnum --> integer))
-(: bitwise-mask (fixnum #!optional boolean --> integer))
-(: bitwise-join (integer #!rest integer --> integer))
-(: bitwise-split (integer fixnum --> (list-of integer)))
-(: bitwise-count (integer --> fixnum))
-(: bitwise-merge (integer integer integer --> integer))
-(: bitwise-nth? (integer fixnum --> boolean))
-(: bitwise-any? (integer integer --> boolean))
-(: bitwise-first-set (integer --> fixnum))
-(: bitwise-reverse (integer fixnum --> integer))
-(: bitwise-rotate (integer fixnum fixnum --> integer))
-(: bitwise-set-nth (integer fixnum boolean --> integer))
-(: bitwise-field (integer fixnum fixnum --> integer))
-(: bitwise-field-copy (integer integer fixnum fixnum --> integer))
-(: bitwise-field-reverse (integer fixnum fixnum --> integer))
-(: bitwise-field-rotate (integer fixnum fixnum fixnum --> integer))
-(: integer->list (integer #!optional (or boolean fixnum) --> (list-of fixnum)))
-(: list->integer (list --> integer))
+(: arithmetic-shift-left    (integer fixnum --> integer))
+(: arithmetic-shift-right   (integer fixnum --> integer))
+(: logical-shift-left       (integer fixnum --> integer))
+(: logical-shift-right      (integer fixnum --> integer))
+(: bitwise-mask             (fixnum #!optional boolean --> integer))
+(: bitwise-join             (integer #!rest integer --> integer))
+(: bitwise-split            (integer fixnum --> (list-of integer)))
+(: bitwise-count            (integer --> fixnum))
+(: bitwise-merge            (integer integer integer --> integer))
+(: bitwise-nth?             (integer fixnum --> boolean))
+(: bitwise-any?             (integer integer --> boolean))
+(: bitwise-first-set        (integer --> fixnum))
+(: bitwise-reverse          (integer fixnum --> integer))
+(: bitwise-rotate           (integer fixnum fixnum --> integer))
+(: bitwise-set-nth          (integer fixnum boolean --> integer))
+(: bitwise-field            (integer fixnum fixnum --> integer))
+(: bitwise-field-copy       (integer integer fixnum fixnum --> integer))
+(: bitwise-field-reverse    (integer fixnum fixnum --> integer))
+(: bitwise-field-rotate     (integer fixnum fixnum fixnum --> integer))
+(: integer->list            (integer #!optional (or boolean fixnum) --> (list-of fixnum)))
+(: list->integer            (list --> integer))
 
 ;observes sign - does sign extend