From 21ed016e0ab40e42f11f422583874f38542a8233 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 10 Mar 2022 18:05:55 +0530
Subject: Ignore 0th command-line argument.

* dump.scm (%connection-settings): Use 1th command-line argument.
(%dump-directory): Use 2th command-line argument.
---
 dump.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'dump.scm')

diff --git a/dump.scm b/dump.scm
index 30cb8dd..989c027 100755
--- a/dump.scm
+++ b/dump.scm
@@ -15,7 +15,7 @@
 ;;; GeneNetwork database connection parameters and dump path
 
 (define %connection-settings
-  (call-with-input-file (list-ref (command-line) 0)
+  (call-with-input-file (list-ref (command-line) 1)
     read))
 
 (define (call-with-genenetwork-database proc)
@@ -31,7 +31,7 @@
                       proc))
 
 (define %dump-directory
-  (list-ref (command-line) 1))
+  (list-ref (command-line) 2))
 
 (define (call-with-dump-file filename proc)
   (let ((absolute-path (string-append %dump-directory filename)))
-- 
cgit v1.2.3