steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

modern: fix map-literals

modern-harvey3
Doug Coleman 2019-11-11 08:17:18 -06:00
parent 317cec5dce
commit 9139752b49
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/modern/out/out.factor
View File

@ -47,7 +47,7 @@ DEFER: map-literals
DEFER: map-literals DEFER: map-literals
: map-literal ( obj quot: ( ..a obj -- ..a obj' ) -- obj ) : map-literal ( obj quot: ( ..a obj -- ..a obj' ) -- obj )
over section? [ over section? [
[ second ] dip map-literals concat [ second ] dip map-literals
] [ ] [
call call
] if ; inline recursive ] if ; inline recursive