From 8a85a750ed941ced2b64f1f77e57a9d3b29850d8 Mon Sep 17 00:00:00 2001
From: Wesley Kerfoot <kerfoow@mcmaster.ca>
Date: Tue, 8 Oct 2013 23:46:22 -0400
Subject: [PATCH] Update database.rkt

---
 database.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/database.rkt b/database.rkt
index 5ba006e..be3b853 100644
--- a/database.rkt
+++ b/database.rkt
@@ -124,7 +124,7 @@
 (define (rate-check-helper mag hN n k)
   (let ([hN (bytes->number hN)])
     (cond
-    [(and (> k mag) (eq? hN n)) #f]
+    [(and (> k mag) (= hN n)) #f]
     [(and (< mag k) (< hN n)) (redis-hincrby "counter" "n" "1") #t]
     [else (redis-hset "counter" "n" "0")
           (redis-hset "counter" "current" (number->string (current-inexact-milliseconds)))
@@ -141,4 +141,4 @@
 (define allowed? (rate-check 10 (* 2 60000)))
 ;; Admin Stuff
 
-(provide (all-defined-out))
\ No newline at end of file
+(provide (all-defined-out))