--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/R/scratch/bugfix.R	Thu Mar 19 22:26:28 2015 +0100
@@ -0,0 +1,26 @@
+
+
+x <- rdyncall:::makeNamespace("bla")
+sys.source("/lab/eclipse/dyncall/rdyncall/scratch/script.R", envir=x)
+
+quote({
+parseStructInfos("
+SDL_keysym{CiiS}scancode sym mod unicode ;
+SDL_KeyboardEvent{CCC<SDL_keysym>}type which state keysym ;
+", envir=x)
+})
+
+f <- function()
+{
+  parent.frame()
+}
+
+g <- function(envir=parent.frame())
+{
+  envir
+}
+
+f <- function(envir=parent.frame())
+{
+  
+}