Fixing bugs, cleaning up

basis/html/components/components-tests.factor

@@ -134,7 +134,7 @@ M: link-test link-href drop "http://www.apple.com/foo&bar" ;
 [ ] [ link-test "link" set-value ] unit-test
 
 [ "<a href='http://www.apple.com/foo&amp;bar'>&lt;Link Title&gt;</a>" ] [
-    [ "link" link render ] with-string-writer
+    [ "link" link new render ] with-string-writer
 ] unit-test
 
 [ ] [

basis/prettyprint/prettyprint.factor

@@ -229,7 +229,7 @@ M: word declarations.
 
 : pprint-; ( -- ) \ ; pprint-word ;
 
-: (see) ( spec -- )
+M: object see
     [
         12 nesting-limit set
         100 length-limit set
@@ -237,10 +237,7 @@ M: word declarations.
         <block dup definition pprint-elements block>
         dup definer nip [ pprint-word ] when* declarations.
         block>
-    ] with-scope ;
-
-M: object see
-    [ (see) ] with-use nl ;
+    ] with-use nl ;
 
 GENERIC: see-class* ( word -- )
 
@@ -328,10 +325,8 @@ M: word see
     dup class? over symbol? not and [
         nl
     ] when
-    dup class? over symbol? and not [
-        [ dup (see) ] with-use nl
-    ] when
-    drop ;
+    dup [ class? ] [ symbol? ] bi and
+    [ drop ] [ call-next-method ] if ;
 
 : see-all ( seq -- )
     natural-sort [ nl ] [ see ] interleave ;