From 853efb5ec9e838a98d6348fc8f9fb6700f47d2b3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 5 Mar 2019 11:22:59 -0700
Subject: [PATCH] cs: fix `PLT_LINKLET_SHOW_CP0`

Repair the internal call to `expand/optimize` to convert Racket
correlateds to Chez Scheme annotations.
---
 racket/src/cs/linklet.sls | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/cs/linklet.sls b/racket/src/cs/linklet.sls
index 34e4d2ebf2..fc0b8c892f 100644
--- a/racket/src/cs/linklet.sls
+++ b/racket/src/cs/linklet.sls
@@ -561,7 +561,7 @@
        (when known-on?
          (show "known" (hash-map exports-info (lambda (k v) (list k v)))))
        (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
         'compile-linklet
         ;; Create the linklet: