Fixup contributions for changes from recent cvs updates.

cvs
Chris Double 2005-09-02 03:38:27 +00:00
parent 27f3ce0fda
commit f53ee2a522
3 changed files with 4 additions and 2 deletions

View File

@ -156,6 +156,8 @@ M: crash-command run-rpc-command ( command -- shutdown? result )
! Experimental code below
! ******************************
USE: gadgets
USE: gadgets-labels
USE: gadgets-presentations
USE: generic
TUPLE: promised-label promise ;

View File

@ -121,7 +121,7 @@ USE: sequences
<tr> <th colspan= "2" th> "Source" write </th> </tr>
<tr> <td colspan= "2" td> [ [ parse ] [ [ "No such word" write ] [ car see ] ifte ] catch ] with-simple-html-output </td> </tr>
<tr> <th> "Apropos" write </th> <th> "Usages" write </th> </tr>
<tr> <td valign= "top" td> [ apropos. ] with-simple-html-output </td>
<tr> <td valign= "top" td> [ apropos ] with-simple-html-output </td>
<td valign= "top" td> [ [ parse ] [ [ "No such word" write ] [ car usages. ] ifte ] catch ] with-simple-html-output </td>
</tr>
</table>

View File

@ -41,7 +41,7 @@ USE: prettyprint
"browser" "responder" set
<pre>
stdio get <html-stream> [
apropos.
apropos
] with-stream
</pre>
] with-scope ;