From 824552578284b94d37cc5bfcf7f8f0b85ac29fe5 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Wed, 23 Aug 2023 17:59:00 +0300
Subject: Delete blank-node construct

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 transform/special-forms.scm | 23 -----------------------
 1 file changed, 23 deletions(-)

(limited to 'transform/special-forms.scm')

diff --git a/transform/special-forms.scm b/transform/special-forms.scm
index 4b69337..99b30df 100644
--- a/transform/special-forms.scm
+++ b/transform/special-forms.scm
@@ -16,7 +16,6 @@
             column-id
             id
             syntax-let
-            blank-node
             map-alist
 	    with-documentation
             define-transformer))
@@ -283,28 +282,6 @@ ALIST field-name) forms."
       (string-append
        table "_" (remove-namespace (symbol->string predicate)))))))
 
-(define-syntax blank-node
-  (syntax-rules ()
-    "Allow having set and multiset within the context of a blank-node"
-    [(_ (op predicate object) ...)
-     (let [(node (string-join
-                  (filter-map (match-lambda
-                                ((pred . obj)
-                                 (match obj
-                                   ((and (?  string? obj)
-                                         (?  string-null? obj))
-                                    #f)
-                                   ((?  symbol? obj)
-                                    (format #f "~a ~a" pred (symbol->string obj)))
-                                   (_
-                                    (format #f "~a ~s" pred obj)))))
-                              (map-alist '()
-                                (op predicate object) ...))
-                  " ; "))]
-       (if (string-null? node)
-           ""
-           (format #f "[ ~a ]" node)))]))
-
 (define-syntax syntax-let
   (syntax-rules ()
     "Like match-let, but for syntax.
-- 
cgit v1.2.3