Fixup contributions for changes from recent cvs updates.
parent
27f3ce0fda
commit
f53ee2a522
|
@ -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 ;
|
||||
|
|
|
@ -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>
|
||||
|
|
|
@ -41,7 +41,7 @@ USE: prettyprint
|
|||
"browser" "responder" set
|
||||
<pre>
|
||||
stdio get <html-stream> [
|
||||
apropos.
|
||||
apropos
|
||||
] with-stream
|
||||
</pre>
|
||||
] with-scope ;
|
||||
|
|
Loading…
Reference in New Issue