diff options
author | Munyoki Kilyungi | 2023-08-25 18:18:10 +0300 |
---|---|---|
committer | Munyoki Kilyungi | 2023-08-28 12:38:35 +0300 |
commit | 5814894585fd71c2447a02028f58ceb72aa010f8 (patch) | |
tree | f508e646302c68cf8752a5e9532478080eaac21f /transform/triples.scm | |
parent | d3e1a1191ced13d00a2e24b286998630f14abae6 (diff) | |
download | gn-transform-databases-5814894585fd71c2447a02028f58ceb72aa010f8.tar.gz |
Treat strings wrapped in "()" as symbols
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'transform/triples.scm')
-rw-r--r-- | transform/triples.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/transform/triples.scm b/transform/triples.scm index 8a64c5b..926b8a2 100644 --- a/transform/triples.scm +++ b/transform/triples.scm @@ -75,6 +75,7 @@ characters with an underscore and prefixing with gn:PREFIX." (list subject predicate object))) (let ([pattern (match object ((or (? symbol? object) + (? (lambda (el) (string-match "^\\( .* \\)$" el)) object) (? (lambda (el) (string-match "^\\[ .* \\]$" el)) object)) "~a ~a ~a .~%") (_ "~a ~a \"~a\" .~%"))]) |