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

modern.out: fix map-literals

modern-harvey3
Doug Coleman 2019-11-11 08:25:23 -06:00
parent f67acc5b6a
commit 39796039b0
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 '[ _ map-literals ] change-payload
] [ ] [
call call
] if ; inline recursive ] if ; inline recursive