From 410bc809ae049fba5c095146f34199ec0d0efee8 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 24 Feb 2026 00:13:14 +0100 Subject: [PATCH] - --- private/web-racket.rkt | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/private/web-racket.rkt b/private/web-racket.rkt index 730023e..7535e2c 100644 --- a/private/web-racket.rkt +++ b/private/web-racket.rkt @@ -6,6 +6,7 @@ "menu.rkt" "../utils/sprintf.rkt" "webui-wire-download.rkt" + "../utils/utils.rkt" html-printer (prefix-in g: gregor) (prefix-in g: gregor/time) @@ -668,6 +669,12 @@ (let ((bdir (string-trim base-dir))) (when (or (string=? bdir "") (string=? bdir ".") (string=? bdir "..")) (set! bdir (path->string (find-system-path 'home-dir)))) + (while (and (> (string-length bdir) 0) + (or (string-suffix? bdir "\\") (string-suffix? bdir "/"))) + (set! bdir (substring bdir 0 (- (string-length bdir) 1))) + ) + (when (string=? bdir "") + (set! bdir (path->string (find-system-path 'home-dir)))) (ww-debug (format "ww-choose-dir ~a ~a ~a" win-id caption bdir)) (let ((r (ww-choose-dir win-id caption bdir))) (ww-debug (format "choose-dir: ~a" r))