modern.out: fix map-literals

2019-11-11 08:25:23 -06:00 · 2019-11-11 08:25:23 -06:00 · 39796039b0
parent f67acc5b6a
commit 39796039b0
1 changed files with 1 additions and 1 deletions
--- 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