From e7108c64caea6adb144493081925d5819c3803cb Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Tue, 15 Apr 2003 15:50:11 +0000
Subject: [PATCH] fixed a bug in draw-line

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

diff --git a/scheme/xlib/graphics.scm b/scheme/xlib/graphics.scm
index 7321d2c..72c0a52 100644
--- a/scheme/xlib/graphics.scm
+++ b/scheme/xlib/graphics.scm
@@ -27,7 +27,7 @@
 
 ;; *** draw lines, polygons ******************************************
 
-(import-lambda-definition draw-line (display drawable gc x1 y2 x2 y2)
+(import-lambda-definition draw-line (display drawable gc x1 y1 x2 y2)
   "scx_Draw_Line")
 
 ;; points has to be a list of (x . y) pairs