get cont-responder examples working with new sequences code.

cvs
Chris Double 2005-04-04 22:31:31 +00:00
parent 191083c72e
commit b1945f04ae
2 changed files with 6 additions and 5 deletions

View File

@ -41,6 +41,7 @@ USE: unparser
USE: words
USE: vectors
USE: logging
USE: sequences
: <evaluator> ( stack msg history -- )
#! Create an 'evaluator' object that holds
@ -172,7 +173,7 @@ USE: logging
#! return the result datastack as a list.
datastack >r
swap list>vector tuck vector-push
set-datastack call datastack vector>list
set-datastack call datastack >list
r> >pop> >pop> tuck vector-push set-datastack ;
: do-eval ( list string -- list )

View File

@ -21,9 +21,9 @@
! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
!
! Routines for managing a simple "To Do list". A todo list has a 'user', 'password'
! and list of items. Each item has a priority, description, and indication if it is
! complete.
! Routines for managing a simple "To Do list". A todo list has a 'user',
! 'password' and list of items. Each item has a priority, description,
! and indication if it is complete.
IN: todo
USE: parser
USE: strings
@ -34,10 +34,10 @@ USE: math
USE: stdio
USE: kernel
USE: prettyprint
USE: unparser
USE: url-encoding
USE: files
USE: hashtables
USE: sequences
: <todo> ( user password -- <todo> )
#! Create an empty todo list