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

.

Browse Source 
original commit: 1e869525295e07a76ffee556f8fb9587c7e207f8
This commit is contained in:
Matthew Flatt 2002-03-20 00:53:13 +00:00
parent d49c1f4478
commit 301f5c10cb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/mred.ss
View File

@ -5181,7 +5181,7 @@
(map (lambda (s) (format "~a|~a|" (car s) (cadr s)))
filters))
(if put? 'put (if multi? 'multi 'get))
(mred->wx parent))])
(and parent (mred->wx parent)))])
(if (and multi? s)
(files->list s)
s))