diff --git a/compiler/compiler.rkt b/compiler/compiler.rkt index dbd7152..623e723 100644 --- a/compiler/compiler.rkt +++ b/compiler/compiler.rkt @@ -980,7 +980,7 @@ (define (default) (compile-general-application exp cenv target linkage)) - + (let: ([op-knowledge : CompileTimeEnvironmentEntry (extract-static-knowledge (App-operator exp) extended-cenv)]) @@ -1716,6 +1716,12 @@ ;(log-debug (format "known to be ~s" entry)) entry)] + [(EmptyClosureReference? exp) + (make-StaticallyKnownLam (EmptyClosureReference-name exp) + (EmptyClosureReference-entry-label exp) + (if (EmptyClosureReference-rest? exp) + (make-ArityAtLeast (EmptyClosureReference-num-parameters exp)) + (EmptyClosureReference-num-parameters exp)))] [(ToplevelRef? exp) ;(log-debug (format "toplevel reference of ~a" exp)) ;(when (ToplevelRef-constant? exp) diff --git a/version.rkt b/version.rkt index 932a6a8..96f4c60 100644 --- a/version.rkt +++ b/version.rkt @@ -7,4 +7,4 @@ (provide version) (: version String) -(define version "1.193") +(define version "1.194")