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

View File

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

View File

@ -61,7 +61,7 @@ TYPED: terrain-segment ( terrain: terrain at: float-4 -- image )
: 4max ( a b c d -- max )
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
'[ first2 [ [ first2 ] bi@ @ ] 2map ] map ; inline