]> gitweb.factorcode.org Git - factor.git/commitdiff
Fixup contributions for changes from recent cvs updates.
authorChris Double <chris.double@double.co.nz>
Fri, 2 Sep 2005 03:38:27 +0000 (03:38 +0000)
committerChris Double <chris.double@double.co.nz>
Fri, 2 Sep 2005 03:38:27 +0000 (03:38 +0000)
contrib/concurrency/concurrency-examples.factor
contrib/cont-responder/eval-responder.factor
contrib/cont-responder/live-updater-responder.factor

index 4cfe59c2c8b07d158d02e467a40acecd5f542194..279141ddc06779e279d02b0a50811d8587536e30 100644 (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 ;
index 23eabb84c187366326c38e7ef9945411c5b02db4..b50e244a6b1292191ee8cbfbf688cc12dd2f791f 100644 (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>
index ee35bd982e2a3f71fc4cfd6df8db4d6a700cbd3f..23800ba7d5a766d7e84a84b6aa19479c4df6e313 100644 (file)
@@ -41,7 +41,7 @@ USE: prettyprint
     "browser" "responder" set
     <pre> 
         stdio get <html-stream> [   
-          apropos.
+          apropos
         ] with-stream              
     </pre>
   ] with-scope ;