Changeset 32781 in project for release/5


Ignore:
Timestamp:
09/14/15 08:50:17 (3 years ago)
Author:
evhan
Message:

srfi-18: Ensure numeric time arguments satisfy real?

File:
1 edited

Legend:

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

    r31403 r32781  
    9494  (cond ((not tm) #f)
    9595        ((##sys#structure? tm 'time) (##sys#slot tm 1))
    96         ((number? tm) (+ (current-milliseconds) (* tm 1000)))
     96        ((real? tm) (+ (current-milliseconds) (* tm 1000)))
    9797        (else (##sys#signal-hook #:type-error loc "invalid timeout argument" tm))))
    9898
Note: See TracChangeset for help on using the changeset viewer.