fixing bugs

[guile-irrlicht.git] / src / event-receiver.cpp

diff --git a/src/event-receiver.cpp b/src/event-receiver.cpp
index 3f2e6839ade8f84d31894bf015b6a3df0808787b..293f48f794f1a6b028003aa50c9b5ad2d438f11e 100644 (file)
--- a/src/event-receiver.cpp
+++ b/src/event-receiver.cpp
@@ -89,7 +89,7 @@ SEvent_SKeyInput_Key (SCM event)
 SCM
 SEvent_SKeyInput_PressedDown (SCM event)
 {
-  return scm_from_key_code
+  return scm_from_bool
     (((SEvent*)scm_to_pointer (event))->KeyInput.PressedDown);
 }