From 3aff5fa35efd8437acaf8bea33285ba8ab298a5c Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 23 Dec 2021 16:43:59 +0530 Subject: Abstract column id generation to separate function. * dump.scm (column-id): New function. (dump-schema): Use column-id. --- dump.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/dump.scm b/dump.scm index 90abe5e..5be830a 100755 --- a/dump.scm +++ b/dump.scm @@ -197,6 +197,9 @@ ALIST field-name) forms." key)))) clauses)) +(define (column-id table-name column-name) + (string->identifier + "field" (string-append table-name "__" column-name))) (define-syntax define-dump (lambda (x) @@ -600,9 +603,8 @@ is a object." (triple table-id 'gn:name (table-name table)) (triple table-id 'gn:hasSize (table-size table)) (for-each (lambda (column) - (let ((column-id (string->identifier - "field" (string-append (table-name table) - "__" (column-name column))))) + (let ((column-id (column-id (table-name table) + (column-name column)))) (triple column-id 'rdf:type 'gn:sqlTableField) (triple column-id 'gn:name (column-name column)) (triple column-id 'gn:sqlFieldType (column-type column)) -- cgit v1.2.3