diff options
Diffstat (limited to 'guix-build-coordinator/utils.scm')
-rw-r--r-- | guix-build-coordinator/utils.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 20cf007..e29be18 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -54,7 +54,9 @@ with-timeout - get-load-average)) + get-load-average + + running-on-the-hurd?)) (eval-when (eval load compile) (begin @@ -803,3 +805,9 @@ again." ((= period 5) 5min) ((= period 15) 15min)))))) #f)) + +(define (running-on-the-hurd?) + (let ((cached-system #f)) + (unless cached-system + (set! cached-system (utsname:sysname (uname)))) + (string=? cached-system "GNU"))) |