(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/misc/timeout#make-timeout__%
    (lambda (_t117391_ _none117392_)
      (if (not _t117391_)
          _none117392_
          (if (time? _t117391_)
              _t117391_
              (if (real? _t117391_)
                  (seconds->time (+ (##current-time-point) _t117391_))
                  (error '"Bad argument; expected real, time or #f"
                         _t117391_))))))
  (define std/misc/timeout#make-timeout__0
    (lambda (_t117397_)
      (let ((_none117399_ absent-obj))
        (std/misc/timeout#make-timeout__% _t117397_ _none117399_))))
  (define std/misc/timeout#make-timeout
    (lambda _g117404_
      (let ((_g117403_ (length _g117404_)))
        (cond ((##fx= _g117403_ 1)
               (apply std/misc/timeout#make-timeout__0 _g117404_))
              ((##fx= _g117403_ 2)
               (apply std/misc/timeout#make-timeout__% _g117404_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/misc/timeout#make-timeout
                _g117404_)))))))
