modern: fix map-literals

2019-11-11 08:17:18 -06:00 · 2019-11-11 08:17:18 -06:00 · 9139752b49
parent 317cec5dce
commit 9139752b49
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 concat
+        [ second ] dip map-literals
    ] [
        call
    ] if ; inline recursive