diff options
| -rwxr-xr-x | dump.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/dump.scm b/dump.scm index 835a199..2bd9cdf 100755 --- a/dump.scm +++ b/dump.scm @@ -94,9 +94,12 @@ (symbol->string schema)) ((string? schema) schema) (else - (error "Use a string/symbol")))]) - (string->symbol - (format #f "~s~a" field schema)))) + (error "Use a string/symbol")))] + [string-field (if (number? field) (number->string field) field)]) + (if (string-null? string-field) + "" + (string->symbol + (format #f "~s~a" string-field schema))))) (define (string-split-substring str substr) "Split the string @var{str} into a list of substrings delimited by the |