 { { string sbuf } { array vector } { byte-array byte-vector } }
 "specializer" set-word-prop
 
-\ append
-{ { string string } { array array } }
-"specializer" set-word-prop
-
-\ prepend
-{ { string string } { array array } }
-"specializer" set-word-prop
+{ append prepend } [
+    { { string string } { array array } }
+    "specializer" set-word-prop
+] each
 
 \ subseq
 { { fixnum fixnum string } { fixnum fixnum array } }


\ split, { string string } "specializer" set-word-prop

\ member-eq? { array } "specializer" set-word-prop

\ member? { array } "specializer" set-word-prop

\ assoc-stack { vector } "specializer" set-word-prop

\ >le { { fixnum fixnum } { bignum fixnum } } "specializer" set-word-prop

\ >be { { bignum fixnum } { fixnum fixnum } } "specializer" set-word-prop

\ base> { string fixnum } "specializer" set-word-prop


    [ parse-definition { } like "specializer" set-word-prop ] tri ;

! Default specializers
{ pop* pop } [
    { vector } "specializer" set-word-prop
] each

