Changeset 37818 in project


Ignore:
Timestamp:
08/04/19 14:24:55 (4 months ago)
Author:
sjamaan
Message:

srfi-14: Use ##sys#check-fixnum instead of ##sys#check-exact on indices

In CHICKEN 4, ##sys#check-exact was what we now call ##sys#check-fixnum
but the SRFI-14 code hasn't been updated to match it.

Fixes #1631

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-14/trunk/srfi-14.scm

    r35500 r37818  
    259259(define (char-set-hash cs . maybe-bound)
    260260  (let ((bound (optional maybe-bound 4194304)))
     261    (##sys#check-fixnum bound 'char-set-hash)
    261262    (if (zero? bound) (set! bound 4194304))
    262     (##sys#check-exact bound 'char-set-hash)
    263263    (let* ((s (%char-set:s/check cs 'char-set-hash))
    264264           ;; Compute a 111...1 mask that will cover BOUND-1:
     
    337337
    338338(define (char-set-cursor-next cset cursor)
    339   (##sys#check-exact cursor 'char-set-cursor-next)
     339  (##sys#check-fixnum cursor 'char-set-cursor-next)
    340340;  (check-arg (lambda (i) (and (integer? i) (exact? i) (<= 0 i 255))) cursor
    341341;            char-set-cursor-next)
     
    484484
    485485(define (%ucs-range->char-set! lower upper error? bs proc)
    486   (##sys#check-exact lower proc)
    487   (##sys#check-exact upper proc)
     486  (##sys#check-fixnum lower proc)
     487  (##sys#check-fixnum upper proc)
    488488;  (check-arg (lambda (x) (and (integer? x) (exact? x) (<= 0 x))) lower proc)
    489489;  (check-arg (lambda (x) (and (integer? x) (exact? x) (<= lower x))) upper proc)
Note: See TracChangeset for help on using the changeset viewer.