guard against negative arguments to scroll-line-location

closes racket/drracket#627
racket · Jan 5, 2024 · 8109de9 · 8109de9
1 parent ec5d8ce
commit 8109de9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gui-lib/mred/private/wxme/text.rkt b/gui-lib/mred/private/wxme/text.rkt
@@ -1234,7 +1234,7 @@
                                                             (let* ([newtop (find-scroll-line (+ vy scroll-height))]
                                                                    [y (scroll-line-location (+ newtop 1))]
                                                                    [newtop (if (y . > . (+ vy scroll-height))
-                                                                               (sub1 newtop)
+                                                                               (max 0 (sub1 newtop))
                                                                                newtop)]
                                                                    [y (scroll-line-location newtop)])
                                                               ;; y is the new top location