(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/misc/path#path-default-extension
    (lambda (_path391_ _ext392_)
      (if (and _ext392_ (string-empty? (path-extension _path391_)))
          (string-append _path391_ _ext392_)
          _path391_)))
  (define std/misc/path#path-force-extension
    (lambda (_path388_ _ext389_)
      (if _ext389_
          (string-append (path-strip-extension _path388_) _ext389_)
          _path388_))))
