get cont-responder examples working with new sequences code.
parent
191083c72e
commit
b1945f04ae
|
@ -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 )
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue