7 lines
116 B
Racket
7 lines
116 B
Racket
#lang typed/racket/base
|
|
(require racket/gui)
|
|
(define (f)
|
|
(let ([fn (put-file)])
|
|
(when fn
|
|
(values fn))))
|