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

.

Browse Source 
original commit: 57fc6dfe8dcc7cefec4bb69d90f7a3ecafeec281
This commit is contained in:
Matthew Flatt 2002-07-27 22:26:23 +00:00
parent c74f3ad460
commit 964a941833
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mred/mred.ss
View File

@ -5220,7 +5220,10 @@
(check-label-string/false who message) (check-label-string/false who message)
(check-top-level-parent/false who parent) (check-top-level-parent/false who parent)
(check-string/false who directory) (check-string/false who filename) (check-string/false who extension) (check-string/false who directory) (check-string/false who filename) (check-string/false who extension)
(check-style who #f (if (or put?) null '(packages-ok)) style) (check-style who #f (cond
[put? null]
[dir? '(enter-packages)]
[else '(packages enter-packages)]) style)
(unless (and (list? filters) (unless (and (list? filters)
(andmap (lambda (p) (andmap (lambda (p)
(and (list? p) (and (list? p)
@ -5243,9 +5246,7 @@
[put? 'put] [put? 'put]
[multi? 'multi] [multi? 'multi]
[else 'get]) [else 'get])
(if (memq 'packages-ok style) style)
'(bundles-ok)
null))
;; parent: ;; parent:
(and parent (mred->wx parent)))]) (and parent (mred->wx parent)))])
(if (and multi? s) (if (and multi? s)