12 lines
269 B
Racket
12 lines
269 B
Racket
#lang typed/racket
|
|
|
|
(module m racket
|
|
(provide eval-get-values)
|
|
|
|
(define (eval-get-values expr namespace)
|
|
(call-with-values (λ () (eval expr namespace)) list)))
|
|
|
|
(require/typed 'm [eval-get-values (→ Any Namespace (Listof Any))])
|
|
|
|
(provide eval-get-values)
|