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

Fixing bugs, cleaning up

db4
Slava Pestov 2008-09-29 19:48:12 -05:00
parent f9670ef366
commit 9b045043ac
2 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/html/components/components-tests.factor
View File

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

13
basis/prettyprint/prettyprint.factor
View File

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