diff options
| -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. |