let
umount
() =
write_super_block
();
write_inode
!
root_inode
;
D
.
close
()