From 0d9d7af4c5532d618a9d893fa031e36000335212 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Mon, 27 Oct 2003 10:08:03 +0000
Subject: [PATCH] Fixed empty-visual-info to call make-visual-info not
 make-visual

---
 scheme/xlib/visual.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/xlib/visual.scm b/scheme/xlib/visual.scm
index 9722698..ce33d03 100644
--- a/scheme/xlib/visual.scm
+++ b/scheme/xlib/visual.scm
@@ -32,7 +32,7 @@
 (define-exported-binding "scx-visual-info" :visual-info)
 
 (define (empty-visual-info)
-  (make-visual #f #f #f #f #f #f #f #f #f #f))
+  (make-visual-info #f #f #f #f #f #f #f #f #f #f))
 
 ;; *** obtain visual information *************************************