Ignore:
Timestamp:
08/30/20 06:20:43 (2 months ago)
Author:
Kon Lovett
Message:

fix integer->list type

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/bitwise-utils/trunk/bitwise-utils.scm

    r38737 r38928  
    7272(: bitwise-field-reverse (integer fixnum fixnum --> integer))
    7373(: bitwise-field-rotate (integer fixnum fixnum fixnum --> integer))
    74 (: integer->list (integer #!optional boolean --> (list-of fixnum)))
     74(: integer->list (integer #!optional (or boolean fixnum) --> (list-of fixnum)))
    7575(: list->integer (list --> integer))
    7676
     
    187187  (bitwise-field-rotate k count 0 len) )
    188188
    189 (define (bitwise-set-nth to index bool)
    190   (if bool
     189(define (bitwise-set-nth to index on?)
     190  (if on?
    191191    (bitwise-ior to (arithmetic-shift 1 index))
    192192    (bitwise-and to (bitwise-not (arithmetic-shift 1 index))) ) )
Note: See TracChangeset for help on using the changeset viewer.