steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

listener: crazy syntax for homoiconic stack

modern-harvey3-triple
Doug Coleman 2018-08-07 16:33:48 -04:00
parent 8eea6188bd
commit f09eade430
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/listener/listener.factor
View File

@ -1,10 +1,10 @@
! Copyright (C) 2003, 2009 Slava Pestov. ! Copyright (C) 2003, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors colors colors.constants combinators.short-circuit USING: accessors colors colors.constants
compiler.units continuations debugger fry io io.styles kernel lexer combinators.short-circuit compiler.units continuations debugger
locals math math.parser namespaces parser parser.notes prettyprint io io.styles kernel lexer math math.parser namespaces parser
sequences sets source-files.errors system vocabs vocabs.loader parser.notes prettyprint sequences sets source-files.errors
vocabs.parser ; strings system vocabs vocabs.loader vocabs.parser ;
IN: listener IN: listener
GENERIC: stream-read-quot ( stream -- quot/f ) GENERIC: stream-read-quot ( stream -- quot/f )
@ -118,7 +118,8 @@ t error-summary? set-global
: datastack. ( datastack -- ) : datastack. ( datastack -- )
display-stacks? get [ display-stacks? get [
[ nl "--- Data stack:" title. trimmed-stack. ] unless-empty ! [ nl "--- Data stack:" title. trimmed-stack. ] unless-empty
[ nl "data-stack" over length char: \: <string> append title. trimmed-stack. ] unless-empty
] [ drop ] if ; ] [ drop ] if ;
:: listener-step ( datastack -- datastack' ) :: listener-step ( datastack -- datastack' )