diff options
Diffstat (limited to 'gnu/system/file-systems.scm')
| -rw-r--r-- | gnu/system/file-systems.scm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm index fd9065d2f6d..7ec2cd02594 100644 --- a/gnu/system/file-systems.scm +++ b/gnu/system/file-systems.scm | |||
| @@ -21,6 +21,15 @@ | |||
| 21 | ;;; You should have received a copy of the GNU General Public License | 21 | ;;; You should have received a copy of the GNU General Public License |
| 22 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | 22 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 23 | 23 | ||
| 24 | ;;; Commentary: | ||
| 25 | ;;; | ||
| 26 | ;;; Declaring file systems to be mounted. | ||
| 27 | ;;; | ||
| 28 | ;;; Note: this file system is used both in the Shepherd and on the "host | ||
| 29 | ;;; side", so it must not include (gnu packages …) modules. | ||
| 30 | ;;; | ||
| 31 | ;;; Code: | ||
| 32 | |||
| 24 | (define-module (gnu system file-systems) | 33 | (define-module (gnu system file-systems) |
| 25 | #:use-module (ice-9 match) | 34 | #:use-module (ice-9 match) |
| 26 | #:use-module (rnrs bytevectors) | 35 | #:use-module (rnrs bytevectors) |
| @@ -109,15 +118,6 @@ | |||
| 109 | swap-space-priority | 118 | swap-space-priority |
| 110 | swap-space-discard?)) | 119 | swap-space-discard?)) |
| 111 | 120 | ||
| 112 | ;;; Commentary: | ||
| 113 | ;;; | ||
| 114 | ;;; Declaring file systems to be mounted. | ||
| 115 | ;;; | ||
| 116 | ;;; Note: this file system is used both in the Shepherd and on the "host | ||
| 117 | ;;; side", so it must not include (gnu packages …) modules. | ||
| 118 | ;;; | ||
| 119 | ;;; Code: | ||
| 120 | |||
| 121 | (eval-when (expand load eval) | 121 | (eval-when (expand load eval) |
| 122 | (define invalid-file-system-flags | 122 | (define invalid-file-system-flags |
| 123 | ;; Note: Keep in sync with 'mount-flags->bit-mask'. | 123 | ;; Note: Keep in sync with 'mount-flags->bit-mask'. |
