Fix the load revision system sorting

As previously it only applied to system tests.

guix-data-service/jobs/load-new-guix-revision.scm

@@ -361,34 +361,34 @@ WHERE job_id = $1")
          result)))))
 
 (define (inferior-guix-systems inf)
-  (cond
+  ;; The order shouldn't matter here, but bugs in Guix can lead to different
-   ((inferior-eval
+  ;; results depending on the order, so sort the systems to try and provide
-     '(defined? 'systems
+  ;; deterministic behaviour
-        (resolve-module '(guix platform)))
+  (sort
-     inf)
+   (cond
+    ((inferior-eval
+      '(defined? 'systems
+         (resolve-module '(guix platform)))
+      inf)
 
-    (remove
+     (remove
-     (lambda (system)
+      (lambda (system)
-       ;; There aren't currently bootstrap binaries for s390x-linux, so this
+        ;; There aren't currently bootstrap binaries for s390x-linux, so this
-       ;; just leads to lots of errors
+        ;; just leads to lots of errors
-       (string=? system "s390x-linux"))
+        (string=? system "s390x-linux"))
+      (inferior-eval
+       '((@ (guix platform) systems))
+       inf)))
+
+    (else
      (inferior-eval
-      '((@ (guix platform) systems))
+      '(@ (guix packages) %supported-systems)
       inf)))
-
+   string<?))
-   (else
-    (inferior-eval
-     '(@ (guix packages) %supported-systems)
-     inf))))
 
 (define (all-inferior-system-tests inf store guix-source guix-commit)
   (define inf-systems
-    ;; The order shouldn't matter here, but bugs in Guix can lead to different
+    (inferior-guix-systems inf))
-    ;; results depending on the order, so sort the systems to try and provide
-    ;; deterministic behaviour
-    (sort
-     (inferior-guix-systems inf)
-     string<?))
 
   (define extract
     `(lambda (store)