whalesong/parameters.rkt
2011-03-20 22:33:22 -04:00

6 lines
162 B
Racket

#lang typed/racket/base
(provide current-defined-name)
(: current-defined-name (Parameterof (U Symbol False)))
(define current-defined-name (make-parameter #f))