From 1f1ff6a0e71387c2a2e4c60b46c23c3224077c4a Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 8 Feb 2016 23:33:12 +0100 Subject: linux-container: Accept file systems with a UUID 'source'. * gnu/system/linux-container.scm (containerized-operating-system)[user-file-systems]: Check whether SOURCE is a string before calling 'string-prefix?'. --- gnu/system/linux-container.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gnu/system/linux-container.scm') diff --git a/gnu/system/linux-container.scm b/gnu/system/linux-container.scm index c558f45769..3acc579a6b 100644 --- a/gnu/system/linux-container.scm +++ b/gnu/system/linux-container.scm @@ -57,7 +57,8 @@ (define user-file-systems (source (file-system-device fs))) (or (string=? target (%store-prefix)) (string=? target "/") - (string-prefix? "/dev/" source) + (and (string? source) + (string-prefix? "/dev/" source)) (string-prefix? "/dev" target) (string-prefix? "/sys" target)))) (operating-system-file-systems os))) -- cgit v1.2.3