brepl

# Brepl Debugging Session for Clojure Script

## Initial Code Review
```clojure
(defn calculate-revenue [products]
  (reduce + (map :price products)))
```

I notice a few potential issues with this code:
- No input validation
- No handling of nil values
- The function name might be misleading as it doesn't calculate revenue but sums prices

## Suggested Improvements
1. Add input validation:
```clojure
(defn validate-products [products]
  (when (not (every? map? products))
    (throw (ex-info "Invalid products data" {:products products}))))
```

2. Handle nil values:
```clojure
(defn safe-price [product]
  (or (:price product) 0))
```

3. Rename the function:
```clojure
(defn sum-product-prices [products]
  (->> products
       (map safe-price)
       (reduce +)))
```

## Testing the Improved Function
Let's test the improved function with some sample data:
```clojure
(sum-product-prices [{:price 10} {:price 20} {:price 30}])
;; => 60
(sum-product-prices [{:price 10} nil {:price 30}])
;; => 40
```