From 397c8ba898a522512ea56a3d2ae78dedda01bd77 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Sun, 21 Dec 2003 21:56:54 +0000
Subject: [PATCH] * Missing semicolons.

---
 scripts/nix-pull.in | 6 +++---
 scripts/nix-push.in | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/scripts/nix-pull.in b/scripts/nix-pull.in
index 040ee54c9..f0d5d95f2 100644
--- a/scripts/nix-pull.in
+++ b/scripts/nix-pull.in
@@ -52,10 +52,10 @@ foreach my $storepath (keys %storepaths2urls) {
     my $hash = $urls2hashes{$url};
     my $fetch =
 	"(import @datadir@/nix/corepkgs/fetchurl) " .
-	"{url = $url; md5 = \"$hash\"; system = \"@system@\"}";
+	"{url = $url; md5 = \"$hash\"; system = \"@system@\";}";
     my $nixexpr =
 	"((import @datadir@/nix/corepkgs/nar/unnar.nix) " .
-	"{narFile = ($fetch); outPath = \"$storepath\"; system = \"@system@\"}) ";
+	"{narFile = ($fetch); outPath = \"$storepath\"; system = \"@system@\";}) ";
     $fullexpr .= $nixexpr; # !!! O(n^2)?
     push @storepaths, $storepath;
 }
@@ -104,6 +104,6 @@ while (scalar @sucs > 0) {
     if ($n > 256) { $n = 256 };
     my @sucs2 = @sucs[0..$n - 1];
     @sucs = @sucs[$n..scalar @sucs - 1];
-    system "nix-store --successor @sucs";
+    system "nix-store --successor @sucs2";
     if ($?) { die "`nix-store --successor' failed"; }
 }
diff --git a/scripts/nix-push.in b/scripts/nix-push.in
index f178ae2b6..275f5e99b 100644
--- a/scripts/nix-push.in
+++ b/scripts/nix-push.in
@@ -45,7 +45,7 @@ foreach my $path (@paths) {
     my $nixexpr = 
         "((import @datadir@/nix/corepkgs/nar/nar.nix) " .
         # !!! $path should be represented as a closure
-        "{path = \"$path\"; system = \"@system@\"}) ";
+        "{path = \"$path\"; system = \"@system@\";}) ";
     
     print NIX $nixexpr;
 }