cs: fix PLT_LINKLET_SHOW_CP0

Repair the internal call to `expand/optimize` to convert Racket
correlateds to Chez Scheme annotations.
This commit is contained in:
Matthew Flatt 2019-03-05 11:22:59 -07:00
parent c63ee19c78
commit 853efb5ec9

View File

@ -561,7 +561,7 @@
(when known-on? (when known-on?
(show "known" (hash-map exports-info (lambda (k v) (list k v))))) (show "known" (hash-map exports-info (lambda (k v) (list k v)))))
(when (and cp0-on? (not jitify-mode?)) (when (and cp0-on? (not jitify-mode?))
(show "cp0" (#%expand/optimize impl-lam/paths))) (show "cp0" (#%expand/optimize (correlated->annotation impl-lam/paths))))
(performance-region (performance-region
'compile-linklet 'compile-linklet
;; Create the linklet: ;; Create the linklet: