specialized-arrays: fix typo

db4
Slava Pestov 2010-05-19 03:23:26 -04:00
parent 9e59192c73
commit dc1aca7ae2
1 changed files with 1 additions and 1 deletions

View File

@ -67,7 +67,7 @@ TUPLE: A
: A-cast ( byte-array -- specialized-array ) : A-cast ( byte-array -- specialized-array )
binary-object \ T heap-size /mod 0 = binary-object \ T heap-size /mod 0 =
[ <direct-A> ] [ drop \ T bad-byte-array-length ] bi ; inline [ <direct-A> ] [ drop \ T bad-byte-array-length ] if ; inline
M: A clone [ underlying>> clone ] [ length>> ] bi <direct-A> ; inline M: A clone [ underlying>> clone ] [ length>> ] bi <direct-A> ; inline