Commits

Christian Kellermann committed 4da5b92

Fix setter procedures to not wrap their arguments in another list

  • Participants
  • Parent commits bf19dbc

Comments (0)

Files changed (1)

 
   (sdl-flip *s*))
 
-(define (clear-screen #!optional (color (current-background)))
+(define (clear-screen #!optional (color *current-background*))
 (let ((width (cairo-image-surface-get-width *c-surface*))
       (height (cairo-image-surface-get-height *c-surface*)))
   (if (list? color)