scheme/shove-window.scm