Realign nutrient creation function.

1 files 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