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
|
! Experimental code below
|
||||||
! ******************************
|
! ******************************
|
||||||
USE: gadgets
|
USE: gadgets
|
||||||
|
USE: gadgets-labels
|
||||||
|
USE: gadgets-presentations
|
||||||
USE: generic
|
USE: generic
|
||||||
|
|
||||||
TUPLE: promised-label promise ;
|
TUPLE: promised-label promise ;
|
||||||
|
|
|
@ -121,7 +121,7 @@ USE: sequences
|
||||||
<tr> <th colspan= "2" th> "Source" write </th> </tr>
|
<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> <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> <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>
|
<td valign= "top" td> [ [ parse ] [ [ "No such word" write ] [ car usages. ] ifte ] catch ] with-simple-html-output </td>
|
||||||
</tr>
|
</tr>
|
||||||
</table>
|
</table>
|
||||||
|
|
|
@ -41,7 +41,7 @@ USE: prettyprint
|
||||||
"browser" "responder" set
|
"browser" "responder" set
|
||||||
<pre>
|
<pre>
|
||||||
stdio get <html-stream> [
|
stdio get <html-stream> [
|
||||||
apropos.
|
apropos
|
||||||
] with-stream
|
] with-stream
|
||||||
</pre>
|
</pre>
|
||||||
] with-scope ;
|
] with-scope ;
|
||||||
|
|
Loading…
Reference in New Issue