fix specialized-array vs methods to work when c-type is also a : word

db4
Joe Groff 2009-12-04 13:22:01 -08:00
parent 53ca7f208b
commit 3aaa90052b
1 changed files with 3 additions and 3 deletions

View File

@ -104,9 +104,9 @@ SYNTAX: A@ scan-object scan-object <direct-A> suffix! ;
INSTANCE: A specialized-array
M: A vs+ [ + T c-type-clamp ] 2map ;
M: A vs- [ - T c-type-clamp ] 2map ;
M: A vs* [ * T c-type-clamp ] 2map ;
M: A vs+ [ + \ T c-type-clamp ] 2map ;
M: A vs- [ - \ T c-type-clamp ] 2map ;
M: A vs* [ * \ T c-type-clamp ] 2map ;
;FUNCTOR