X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Fevent-receiver.cpp;h=293f48f794f1a6b028003aa50c9b5ad2d438f11e;hp=3f2e6839ade8f84d31894bf015b6a3df0808787b;hb=19663b6c5766b06c73148fdf803ce3555052a23e;hpb=6343b5b67dfe68e1e7270ba6c100603f157d1b31

diff --git a/src/event-receiver.cpp b/src/event-receiver.cpp
index 3f2e683..293f48f 100644
--- 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);
 }