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

fix put-file

Browse Source 
original commit: 45f97d04a3b5038a82e4b5e3cbc2d8e05bf35ebe
This commit is contained in:
Matthew Flatt 1999-04-25 23:45:04 +00:00
parent 96e4929a62
commit 5d6a502d58
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4583,7 +4583,7 @@
[(message parent directory filename) (put-file message parent directory filename #f null)]
[(message parent directory filename extension) (put-file message parent directory filename extension null)]
[(message parent directory filename extension style)
((mk-file-selector 'put-file #f) message parent directory filename extension style)]))
((mk-file-selector 'put-file #t) message parent directory filename extension style)]))
(define get-color-from-user
(if (not (eq? (system-type) 'unix))