diff options
| -rwxr-xr-x | examples/dataset-metadata-git.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/examples/dataset-metadata-git.scm b/examples/dataset-metadata-git.scm index cd3081c..b6c6fc0 100755 --- a/examples/dataset-metadata-git.scm +++ b/examples/dataset-metadata-git.scm @@ -42,8 +42,11 @@ (experiment-design (get* "ExperimentDesign")) (acknowledgment (get* "Acknowledgment"))) (for-each (lambda (x) - (save-file (file-name (string-append dir-name (car x))) - (cdr x))) + (save-file + (string-append (file-name identifier) + "/" + (car x)) + (cdr x))) `(("summary.rtf" . ,summary) ("tissue.rtf" . ,tissue) ("specifics.rtf" . ,specifics) |