diff options
| -rwxr-xr-x | examples/dataset-metadata-git.scm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/examples/dataset-metadata-git.scm b/examples/dataset-metadata-git.scm index 1730f95..cd3081c 100755 --- a/examples/dataset-metadata-git.scm +++ b/examples/dataset-metadata-git.scm @@ -21,15 +21,15 @@ (define (infopages/sql->rtf result) (let* ((get (cut assoc-ref result <>)) (get* (compose (lambda (str) - (if (string-blank? str) - #f - str)) - get)) - (identifier (string->identifier - "" - (regexp-substitute/global #f "[^A-Za-z0-9:]" - (get "InfoPageName") - 'pre "_" 'post))) + (if (string-blank? str) + #f + str)) + get)) + (identifier + (regexp-substitute/global + #f "[^A-Za-z0-9:]" + (get "InfoPageName") + 'pre "_" 'post)) (dir-name (string-append "/export/data/genenetwork/gn-docs/datasets/")) (file-name (cut string-append dir-name <>)) (summary (get* "Summary")) |