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

see: fixing summary for ALIAS.

db4
John Benediktsson 2013-03-31 17:12:35 -07:00
parent a96737fc29
commit 7d4bf03bab
2 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/see/see-tests.factor
View File

@ -1,7 +1,8 @@
USING: see tools.test io.streams.string math summary words ;
IN: see.tests IN: see.tests
USING: see tools.test io.streams.string math words ;
CONSTANT: test-const 10 CONSTANT: test-const 10
[ "IN: see.tests\nCONSTANT: test-const 10 inline\n" ] [ "IN: see.tests\nCONSTANT: test-const 10 inline\n" ]
[ [ \ test-const see ] with-string-writer ] unit-test [ [ \ test-const see ] with-string-writer ] unit-test
@ -10,4 +11,7 @@ ALIAS: test-alias +
[ "USING: math ;\nIN: see.tests\nALIAS: test-alias + inline\n" ] [ "USING: math ;\nIN: see.tests\nALIAS: test-alias + inline\n" ]
[ [ \ test-alias see ] with-string-writer ] unit-test [ [ \ test-alias see ] with-string-writer ] unit-test
[ ] [ gensym see ] unit-test [ "IN: see.tests ALIAS: test-alias ( x y -- z )" ]
[ \ test-alias summary ] unit-test
[ ] [ gensym see ] unit-test

13
basis/see/see.factor
View File

@ -91,6 +91,19 @@ M: mixin-instance synopsis*
M: pathname synopsis* pprint* ; M: pathname synopsis* pprint* ;
M: alias summary
[
0 margin set 1 line-limit set
[
{
[ seeing-word ]
[ definer. ]
[ pprint-word ]
[ stack-effect pprint-effect ]
} cleave
] with-in
] with-string-writer ;
M: word summary synopsis ; M: word summary synopsis ;
GENERIC: declarations. ( obj -- ) GENERIC: declarations. ( obj -- )