guile-hurd/translator/interfaces/file-sync.lisp

(in-package :hurd-translator)

(def-fs-interface :file-sync ((port port)
                              (wait :boolean)
                              (omit-meta :boolean))
  (with-lookup protid port
    (if (sync-file *translator*
                   (get-node protid)
                   (get-user protid)
                   wait
                   omit-meta)
      t
      nil)))