From cde0f366c27cb16f5d2f2c2a257cf438b6460754 Mon Sep 17 00:00:00 2001
From: Michael Raskin <7c6f434c@mail.ru>
Date: Sun, 20 Sep 2009 20:37:41 +0000
Subject: [PATCH] Fix signature mismatch

svn path=/nixpkgs/trunk/; revision=17313
---
 pkgs/top-level/guile-2-test.nix | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/pkgs/top-level/guile-2-test.nix b/pkgs/top-level/guile-2-test.nix
index db6986fe8a88..71a0e1f5e5b1 100644
--- a/pkgs/top-level/guile-2-test.nix
+++ b/pkgs/top-level/guile-2-test.nix
@@ -6,8 +6,9 @@
 let
   allPackages = import ./all-packages.nix;
 
-  pkgs = let orig = (allPackages {}); in
+  pkgsFun = {system ? builtins.currentSystem}: let orig = (allPackages {inherit system;}); in
     orig // { __overrides = { guile = orig.guile_1_9; }; };
+  pkgs = pkgsFun {};
 
   toJob = x: if builtins.isAttrs x then x else
     { type = "job"; systems = x; schedulingPriority = 10; };
@@ -18,7 +19,7 @@ let
      for the platform in question. */
   testOn = systems: f: {system ? builtins.currentSystem}:
     if pkgs.lib.elem system systems
-    then f (pkgs {inherit system;})
+    then f (pkgsFun {inherit system;})
     else {};
 
   /* Map an attribute of the form `foo = [platforms...]'  to `testOn