diff options
| -rw-r--r-- | models/nutrient.rkt | 14 |
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 |