1 <% USING: namespaces io kernel furnace words prettyprint
2 generic sequences parser ; %>
6 <form action="<% dup class dup word-vocabulary use+ unparse write %>-update" method="post">
10 <input type="hidden" name="crud-index" value="<% write %>"/>
16 <% dup tuple-slots swap class "slot-names" word-prop [ %> <tr><td><% dup write %>:</td>
17 <td><input type="text" name="<% write %>" value="<% write %>"/></td></tr><% ] 2each %>
20 <input type="submit" name="submit" value="submit"/>