...

original commit: d1976ca0f92a5586f51956eeccf14f7fc9e2c802
1999-06-10 16:30:36 +00:00 · 1999-06-10 16:30:36 +00:00 · bc18814450
commit bc18814450
parent f42df1c288
1 changed files with 1 additions and 0 deletions
--- a/collects/framework/finder.ss
+++ b/collects/framework/finder.ss
@ -720,6 +720,7 @@
  
  (define -get-file
    (lambda args
+      (printf "get-file: ~s~n" args)
      (let ([actual-fun
 	     (case (preferences:get 'framework:file-dialogs)
 	       [(std) std-get-file]