Don't create triple when string is blank. HEAD master

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 31 insertions, 22 deletions

diff --git a/transform/special-forms.scm b/transform/special-forms.scm
index 8de4966..35dc2f3 100644
--- a/transform/special-forms.scm
+++ b/transform/special-forms.scm
@@ -6,6 +6,7 @@
   #:use-module (transform sql)
   #:use-module (transform table)
   #:use-module (transform triples)
+  #:use-module (transform strings)
   #:export (translate-forms
             collect-forms
             collect-keys
@@ -25,29 +26,37 @@
 (define (emit-short-turtle subject po-alist)
   (let loop ((pairs po-alist) (first? #t))
     (match pairs
+      ;; Skip pairs with blank string objects
       (((p . o) rest ...)
-       ;; subject only on first line
-       (when first?
-         (format #t "~a " subject))
-       (when (not first?)
-         (format #t "\t"))   ; indent following lines
-
-       (match o
-         ((? symbol?)
-          (format #t "~a ~a" p (symbol->string o)))
-         ((or (? (lambda (el) (and (string? el)
-                                   (string-match "^\\(.*\\)$" el))))
-              (? (lambda (el) (and (string? el)
-                                   (string-match "^\\[.*\\]$" el)))))
-          (format #t "~a ~s" p o))
-         (_
-          (format #t "~a \"~a\"" p o)))
-
-       (if (null? rest)
-           (format #t " .~%")   ; last triple
-           (format #t " ;~%"))  ; continuation
-
-       (loop rest #f))
+       (if (and (string? o) (string-blank? o))
+           (loop rest first?)     ; ← skip entirely
+           (begin
+             ;; subject only on first emitted line
+             (when first?
+               (format #t "~a " subject))
+             (when (not first?)
+               (format #t "\t"))  ; indent following lines
+
+             ;; emit predicate–object
+             (match o
+               ((? symbol?)
+                (format #t "~a ~a" p (symbol->string o)))
+               ((or (? (lambda (el)
+                          (and (string? el)
+                               (string-match "^\\(.*\\)$" el))))
+                    (? (lambda (el)
+                          (and (string? el)
+                               (string-match "^\\[.*\\]$" el)))))
+                (format #t "~a ~s" p o))
+               (_
+                (format #t "~a \"~a\"" p o)))
+
+             ;; separator
+             (if (null? rest)
+                 (format #t " .~%")
+                 (format #t " ;~%"))
+
+             (loop rest #f))))
 
       (() #f))))