17 lines
320 B
Racket
17 lines
320 B
Racket
#lang typed/racket
|
|
|
|
(parameterize ([current-directory ".."])
|
|
(current-directory)
|
|
(current-directory ".."))
|
|
|
|
|
|
(: old-param Parameterization)
|
|
(define old-param (current-parameterization))
|
|
|
|
(current-directory "..")
|
|
|
|
(call-with-parameterization old-param (lambda () (current-directory)))
|
|
|
|
(parameterization? old-param)
|
|
|