From 3d7daabfaed706d44f5e174b912ad25b0f95fbb2 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Wed, 5 Apr 2023 15:58:11 +0300 Subject: Simplify pattern matching when checking for a node Signed-off-by: Munyoki Kilyungi --- dump/triples.scm | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) (limited to 'dump') diff --git a/dump/triples.scm b/dump/triples.scm index 1f2ab87..8ed9952 100644 --- a/dump/triples.scm +++ b/dump/triples.scm @@ -41,16 +41,13 @@ characters with an underscore and prefixing with gn:PREFIX." (number? object)) (error "Triple object not a string, symbol or number:" (list subject predicate object))) - (match object - ((and (? string? object) - (? (lambda (el) (string-match "^\\[ .* \\]$" object)))) - (format #t "~a ~a ~a .~%" subject predicate object)) - ((? symbol? object) - (format #t "~a ~a ~a .~%" subject predicate object)) - ((or (? string? object) - (? number? object)) - (format #t "~a ~a ~s .~%" subject predicate object)) - (_ (error "Trible object must be a string, symbol, number or blank node")))) + (let ([pattern (match object + ((or (? symbol? object) + ;; Check for a node + (? (lambda (el) (string-match "^\\[ .* \\]$" el)) object)) + "~a ~a ~a .~%") + (_ "~a ~a ~s .~%"))]) + (format #t pattern subject predicate object))) (define (scm->triples alist id) (for-each (match-lambda -- cgit v1.2.3