From 66b7433b418412ae9fbb90764422609434446bda Mon Sep 17 00:00:00 2001
From: Yurii Rashkovskii <yrashk@gmail.com>
Date: Wed, 1 Feb 2012 16:43:32 -0800
Subject: [PATCH] Fixes implementation of seresye:query_kb/2

---
 src/seresye.erl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/seresye.erl b/src/seresye.erl
index 01719bc..962fbc3 100644
--- a/src/seresye.erl
+++ b/src/seresye.erl
@@ -76,7 +76,7 @@ get_kb(Name) ->
     gen_server:call(Name, get_kb).
 
 query_kb(Name, Pattern) ->
-    gen_server:call(Name, Pattern).
+    gen_server:call(Name, {query_kb, Pattern}).
 
 
 %%%===================================================================
@@ -183,10 +183,10 @@ handle_call(get_kb, _From, State0) ->
                 {error, {Type, Reason}}
         end,
     {reply, Reply, State0};
-handle_call(query_kb, _From, State0) ->
+handle_call({query_kb, Pattern}, _From, State0) ->
     Reply =
         try
-            seresye_engine:query_kb(State0)
+            seresye_engine:query_kb(State0, Pattern)
         catch
             Type:Reason ->
                 {error, {Type, Reason}}