Changeset 40376 in project


Ignore:
Timestamp:
08/22/21 07:03:44 (5 weeks ago)
Author:
Kon Lovett
Message:

more example argument checking

File:
1 edited

Legend:

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

    r40374 r40376  
    5656  (let ((start (if (not m) 0 n)) (end (if (not m) (vector-length vec) m)))
    5757    #;(unless (<= start end) (error 'vector-iota! "limits swapped" start end))
     58    #;(unless (<= end (vector-length vec)) (error 'vector-iota! "limits exceeded" end (vector-length vec)))
    5859    (do ((i start (fx+ i 1)))
    5960        ((fx= i end) vec)
Note: See TracChangeset for help on using the changeset viewer.