Fixing bugs, cleaning up

diff --git a/basis/html/components/components-tests.factor b/basis/html/components/components-tests.factor
index c0b7eec9141b7f81c3fa1ca9402e16e7b4fbeecf..b4247e6e30574e6a7fcaf086043914b133db9d51 100644 (file)
--- a/basis/html/components/components-tests.factor
+++ b/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
 
 [ ] [

diff --git a/basis/prettyprint/prettyprint.factor b/basis/prettyprint/prettyprint.factor
index c7be48084f16e6de8061d6a0daa253f2fade77bc..f63ce44c7184e7125e70bb13dfff55ef04e09200 100755 (executable)
--- a/basis/prettyprint/prettyprint.factor
+++ b/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 ;