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

unicode.data, terrain.generation: remove abusive stack effect names.

locals-and-roots
Doug Coleman 2016-03-25 03:12:57 -07:00
parent d3bc2035a2
commit 7a6570b355
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/unicode/data/data.factor
View File

@ -174,8 +174,8 @@ C: <code-point> code-point
4 head [ multihex ] map first4 4 head [ multihex ] map first4
<code-point> swap first ,, ; <code-point> swap first ,, ;
! Extra properties ! Extra properties {{[a,b],prop}}
: parse-properties ( -- {{[a,b],prop}} ) : parse-properties ( -- assoc )
"vocab:unicode/data/PropList.txt" data [ "vocab:unicode/data/PropList.txt" data [
[ [
".." split1 [ dup ] unless* ".." split1 [ dup ] unless*

2
extra/terrain/generation/generation.factor
View File

@ -61,7 +61,7 @@ TYPED: terrain-segment ( terrain: terrain at: float-4 -- image )
: 4max ( a b c d -- max ) : 4max ( a b c d -- max )
max max max ; inline max max max ; inline
: mipmap ( {{pixels}} quot: ( aa ab ba bb -- c ) -- pixels' ) : mipmap ( pixels quot: ( aa ab ba bb -- c ) -- pixels' )
[ [ 2 <groups> ] map 2 <groups> ] dip [ [ 2 <groups> ] map 2 <groups> ] dip
'[ first2 [ [ first2 ] bi@ @ ] 2map ] map ; inline '[ first2 [ [ first2 ] bi@ @ ] 2map ] map ; inline