summaryrefslogtreecommitdiff
path: root/gnu/system/file-systems.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/system/file-systems.scm')
-rw-r--r--gnu/system/file-systems.scm18
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'.