see: fixing summary for ALIAS.

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
+[ "IN: see.tests ALIAS: test-alias ( x y -- z )" ]
+[ \ test-alias summary ] unit-test
+
+[ ] [ gensym see ] unit-test

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 -- )