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

hints: cleanup some hint setting.

db4
John Benediktsson 2012-09-11 10:34:50 -07:00
parent 6023712f05
commit 08499b6e5a
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
basis/hints/hints.factor
View File

@ -74,7 +74,7 @@ SYNTAX: HINTS:
[ parse-definition { } like "specializer" set-word-prop ] tri ;
! Default specializers
{ last pop* pop } [
{ pop* pop } [
{ vector } "specializer" set-word-prop
] each
@ -88,13 +88,10 @@ SYNTAX: HINTS:
{ { 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 } }
@ -118,15 +115,16 @@ SYNTAX: HINTS:
\ split, { string string } "specializer" set-word-prop
\ member-eq? { array } "specializer" set-word-prop
\ member? { array } "specializer" set-word-prop
{ member? member-eq? } [
{ array } "specializer" set-word-prop
] each
\ 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
{ >le >be } [
{ { fixnum fixnum } { bignum fixnum } }
"specializer" set-word-prop
] each
\ base> { string fixnum } "specializer" set-word-prop