From 39796039b0f25703ad0e2328953b3e26475625df Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 11 Nov 2019 08:25:23 -0600
Subject: [PATCH] modern.out: fix map-literals

---
 extra/modern/out/out.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/modern/out/out.factor b/extra/modern/out/out.factor
index fc7633c67e..3db53e3b08 100644
--- a/extra/modern/out/out.factor
+++ b/extra/modern/out/out.factor
@@ -47,7 +47,7 @@ DEFER: map-literals
 DEFER: map-literals
 : map-literal ( obj quot: ( ..a obj -- ..a obj' ) -- obj )
     over section? [
-        [ second ] dip map-literals
+        '[ _ map-literals ] change-payload
     ] [
         call
     ] if ; inline recursive