aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-03-10 18:05:55 +0530
committerArun Isaac2022-03-10 18:05:55 +0530
commit21ed016e0ab40e42f11f422583874f38542a8233 (patch)
treed27c7e9e19e40d6eb9226045b1482bf354c1b690
parente1c3360f04830c56468ca6210361fe794ea3c987 (diff)
downloadgn-transform-databases-21ed016e0ab40e42f11f422583874f38542a8233.tar.gz
Ignore 0th command-line argument.
* dump.scm (%connection-settings): Use 1th command-line argument. (%dump-directory): Use 2th command-line argument.
-rwxr-xr-xdump.scm4
1 files changed, 2 insertions, 2 deletions
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)))