get cont-responder examples working with new sequences code.
parent
191083c72e
commit
b1945f04ae
|
@ -41,6 +41,7 @@ USE: unparser
|
||||||
USE: words
|
USE: words
|
||||||
USE: vectors
|
USE: vectors
|
||||||
USE: logging
|
USE: logging
|
||||||
|
USE: sequences
|
||||||
|
|
||||||
: <evaluator> ( stack msg history -- )
|
: <evaluator> ( stack msg history -- )
|
||||||
#! Create an 'evaluator' object that holds
|
#! Create an 'evaluator' object that holds
|
||||||
|
@ -172,7 +173,7 @@ USE: logging
|
||||||
#! return the result datastack as a list.
|
#! return the result datastack as a list.
|
||||||
datastack >r
|
datastack >r
|
||||||
swap list>vector tuck vector-push
|
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 ;
|
r> >pop> >pop> tuck vector-push set-datastack ;
|
||||||
|
|
||||||
: do-eval ( list string -- list )
|
: do-eval ( list string -- list )
|
||||||
|
|
|
@ -21,9 +21,9 @@
|
||||||
! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
|
! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
|
||||||
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||||
!
|
!
|
||||||
! Routines for managing a simple "To Do list". A todo list has a 'user', 'password'
|
! Routines for managing a simple "To Do list". A todo list has a 'user',
|
||||||
! and list of items. Each item has a priority, description, and indication if it is
|
! 'password' and list of items. Each item has a priority, description,
|
||||||
! complete.
|
! and indication if it is complete.
|
||||||
IN: todo
|
IN: todo
|
||||||
USE: parser
|
USE: parser
|
||||||
USE: strings
|
USE: strings
|
||||||
|
@ -34,10 +34,10 @@ USE: math
|
||||||
USE: stdio
|
USE: stdio
|
||||||
USE: kernel
|
USE: kernel
|
||||||
USE: prettyprint
|
USE: prettyprint
|
||||||
USE: unparser
|
|
||||||
USE: url-encoding
|
USE: url-encoding
|
||||||
USE: files
|
USE: files
|
||||||
USE: hashtables
|
USE: hashtables
|
||||||
|
USE: sequences
|
||||||
|
|
||||||
: <todo> ( user password -- <todo> )
|
: <todo> ( user password -- <todo> )
|
||||||
#! Create an empty todo list
|
#! Create an empty todo list
|
||||||
|
|
Loading…
Reference in New Issue