From 5814894585fd71c2447a02028f58ceb72aa010f8 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Fri, 25 Aug 2023 18:18:10 +0300
Subject: Treat strings wrapped in "()" as symbols

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 transform/triples.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'transform/triples.scm')

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\" .~%"))])
-- 
cgit v1.2.3