suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 3b1f014d831d18f469b248fbd482d8c6742a0993
This commit is contained in:
Matthew Flatt 1999-08-03 20:10:23 +00:00
parent d1e695c9cf
commit 9c44a4c92e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mred/wrap/mred.ss
View File

@ -4608,7 +4608,8 @@
(wx:begin-busy-cursor) (wx:begin-busy-cursor)
(send m set-label (if (directory-exists? dir) (send m set-label (if (directory-exists? dir)
(begin (begin
(set! last-visted-directory dir) (unless directory
(set! last-visted-directory dir))
dir) dir)
(string-append "BAD DIRECTORY: " dir))) (string-append "BAD DIRECTORY: " dir)))
(send dir-text set-value dir) (send dir-text set-value dir)