see: fixing summary for ALIAS.

diff --git a/basis/see/see-tests.factor b/basis/see/see-tests.factor
index ba81bf5e2f6c50dc56ed9af1bbbb9bc886082018..0005fb08fd02f923f96a63243aff67e3a0f1f29d 100644 (file)
--- a/basis/see/see-tests.factor
+++ b/basis/see/see-tests.factor
@@ -1,7 +1,8 @@
+USING: see tools.test io.streams.string math summary words ;
 IN: see.tests
-USING: see tools.test io.streams.string math words ;
 
 CONSTANT: test-const 10
+
 [ "IN: see.tests\nCONSTANT: test-const 10 inline\n" ]
 [ [ \ 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" ]
 [ [ \ test-alias see ] with-string-writer ] unit-test
 
-[ ] [ gensym see ] unit-test
\ No newline at end of file
+[ "IN: see.tests ALIAS: test-alias ( x y -- z )" ]
+[ \ test-alias summary ] unit-test
+
+[ ] [ gensym see ] unit-test

diff --git a/basis/see/see.factor b/basis/see/see.factor
index 7450d827fea524bbfb7e885667aed6c4b6048971..712b55f1424e3f8bbad13a1f9532ea23ccd09d1f 100644 (file)
--- a/basis/see/see.factor
+++ b/basis/see/see.factor
@@ -91,6 +91,19 @@ M: mixin-instance synopsis*
 
 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 ;
 
 GENERIC: declarations. ( obj -- )