Changed with-canvas-mode into call-with-canvas-in-mode