7 lines
215 B
Racket
7 lines
215 B
Racket
#lang typed/racket/base
|
|
|
|
(require "expression-structs.rkt")
|
|
(provide current-defined-name)
|
|
|
|
(: current-defined-name (Parameterof (U Symbol LamPositionalName)))
|
|
(define current-defined-name (make-parameter 'unknown)) |