Changeset 37827 in project
 Timestamp:
 08/04/19 14:33:10 (4 months ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

release/5/srfi1/trunk/srfi1.scm
r35497 r37827 268 268 (define (makelist len . maybeelt) 269 269 ; (checkarg (lambda (n) (and (integer? n) (>= n 0))) len makelist) 270 (##sys#check exactlen 'makelist)270 (##sys#checkfixnum len 'makelist) 271 271 (let ((elt (cond ((null? maybeelt) #f) ; Default value 272 272 ((null? (cdr maybeelt)) (car maybeelt)) … … 286 286 ; (checkarg (lambda (n) (and (integer? n) (>= n 0))) len listtabulate) 287 287 ; (checkarg procedure? proc listtabulate) 288 (##sys#check exactlen 'listtabulate)288 (##sys#checkfixnum len 'listtabulate) 289 289 (do ((i (fx len 1) (fx i 1)) 290 290 (ans '() (cons (proc i) ans))) … … 529 529 530 530 (define (take lis k) 531 (##sys#check exactk 'take)531 (##sys#checkfixnum k 'take) 532 532 ; (checkarg integer? k take) 533 533 (let recur ((lis lis) (k k)) … … 537 537 538 538 (define (drop lis k) 539 (##sys#check exactk 'drop)539 (##sys#checkfixnum k 'drop) 540 540 ; (checkarg integer? k drop) 541 541 (let iter ((lis lis) (k k)) … … 543 543 544 544 (define (take! lis k) 545 (##sys#check exactk 'take!)545 (##sys#checkfixnum k 'take!) 546 546 ; (checkarg integer? k take!) 547 547 (if (eq? 0 k) '() … … 627 627 628 628 (define (splitat x k) 629 (##sys#check exactk 'splitat)629 (##sys#checkfixnum k 'splitat) 630 630 ; (checkarg integer? k splitat) 631 631 (let recur ((lis x) (k k)) … … 635 635 636 636 (define (splitat! x k) 637 (##sys#check exactk 'splitat!)637 (##sys#checkfixnum k 'splitat!) 638 638 ; (checkarg integer? k splitat!) 639 639 (if (eq? 0 k) (values '() x)
Note: See TracChangeset
for help on using the changeset viewer.