1 files changed, 5 insertions, 0 deletions
diff --git a/sdl2/render.scm b/sdl2/render.scm
index c91699d..18b800d 100644
--- a/sdl2/render.scm
+++ b/sdl2/render.scm
@@ -37,6 +37,7 @@
             present-renderer
             render-copy
             set-render-draw-color
+            render-draw-line
 
             surface->texture))
 
@@ -106,6 +107,10 @@ color."
   "Set draw color of RENDERER."
   (ffi:sdl-set-render-draw-color (unwrap-renderer renderer) r g b a))
 
+(define (render-draw-line renderer x1 y1 x2 y2)
+  "Draw line on RENDERER."
+  (ffi:sdl-render-draw-line (unwrap-renderer renderer) x1 y1 x2 y2))
+
 
 ;;;
 ;;; Texture