hans/web-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-24 00:27:18 +01:00
parent 410bc809ae
commit d322e3ab05
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
private/web-racket.rkt
View File

@@ -675,6 +675,8 @@
) )
(when (string=? bdir "") (when (string=? bdir "")
(set! bdir (path->string (find-system-path 'home-dir)))) (set! bdir (path->string (find-system-path 'home-dir))))
(when (or (string-suffix? bdir "\\") (string-suffix? bdir "/"))
(set! bdir (substring bdir 0 (- (string-length bdir) 1))))
(ww-debug (format "ww-choose-dir ~a ~a ~a" win-id caption bdir)) (ww-debug (format "ww-choose-dir ~a ~a ~a" win-id caption bdir))
(let ((r (ww-choose-dir win-id caption bdir))) (let ((r (ww-choose-dir win-id caption bdir)))
(ww-debug (format "choose-dir: ~a" r)) (ww-debug (format "choose-dir: ~a" r))