From 7fcdf1c402ea3db38147d1aa12eb5b9bd5b3e592 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 1 Nov 2025 18:07:45 +0100 Subject: Realign nutrient creation function. --- models/nutrient.rkt | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/models/nutrient.rkt b/models/nutrient.rkt index 8d38f74..6df0989 100644 --- a/models/nutrient.rkt +++ b/models/nutrient.rkt @@ -31,14 +31,12 @@ ;; CREATE (define (create-nutrient! name formula) - (define existing-nutrient (get-nutrient #:name name #:formula formula)) - (define (new-nutrient) - (query-exec (current-conn) - (insert #:into nutrients - #:set [canonical_name ,name] [formula ,formula])) - (get-nutrient #:name name)) - (or existing-nutrient - (new-nutrient))) + (or (get-nutrient #:name name #:formula formula) + (begin + (query-exec (current-conn) + (insert #:into nutrients + #:set [canonical_name ,name] [formula ,formula])) + (get-nutrient #:name name)))) ;; READ -- cgit v1.2.3