Index: sdl.scm
===================================================================
--- sdl.scm	(revision 25270)
+++ sdl.scm	(working copy)
@@ -970,7 +970,7 @@
   (if (sdl-color? c)
       ((foreign-lambda* int ((SDL_Surface s)
 			     (SDL_Rect r)
-			     (c-pointer cbuf))
+			     (scheme-pointer cbuf))
 			"SDL_Color *c = (SDL_Color *) cbuf;"
 			"unsigned int c2 = SDL_MapRGB(s->format, c->r, c->g, c->b);"
 			"return(SDL_FillRect(s, r, c2));")