diff options
author | Munyoki Kilyungi | 2023-08-23 17:59:00 +0300 |
---|---|---|
committer | Munyoki Kilyungi | 2023-08-23 18:02:19 +0300 |
commit | 824552578284b94d37cc5bfcf7f8f0b85ac29fe5 (patch) | |
tree | fa7168198987a4776980d5100ae9577dd179ccca | |
parent | 59a2bf09e9d4c8310051140a5dc1eeda017cd870 (diff) | |
download | gn-transform-databases-824552578284b94d37cc5bfcf7f8f0b85ac29fe5.tar.gz |
Delete blank-node construct
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rw-r--r-- | transform/special-forms.scm | 23 |
1 files changed, 0 insertions, 23 deletions
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. |