Permalink
Browse files

Merge branch 'hotfix/1.3.1.2'

  • Loading branch information...
2 parents ce2c36d + d8295f0 commit 4a2cef0b0fc6cd00fae37713b3d546d3003aeaf6 @amalloy amalloy committed Sep 20, 2011
Showing with 3 additions and 2 deletions.
  1. +1 −1 project.clj
  2. +2 −1 src/foreclojure/problems.clj
View
@@ -1,4 +1,4 @@
-(defproject foreclojure "1.3.1.1"
+(defproject foreclojure "1.3.1.2"
:description "4clojure - a website for lisp beginners"
:dependencies [[clojure "1.2.1"]
[clojure-contrib "1.2.0"]
@@ -94,7 +94,8 @@
code)))
(defn record-golf-score! [user-id problem-id score]
- (when-let [{user-id :_id {old-score (keyword problem-id)} :scores :as user}
+ (when-let [{{old-score (keyword (str problem-id))} :scores
+ user-id :_id :as user}
(from-mongo
(fetch-one :users
:where {:_id user-id}))]

0 comments on commit 4a2cef0

Please sign in to comment.