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

eval: Add eval[[ ]] for experimentation.

locals-and-roots
Doug Coleman 2016-06-24 00:48:11 -07:00
parent 52a9dfb11a
commit fde9445c74
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
language/eval/eval.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2008, 2009 Slava Pestov. ! Copyright (C) 2008, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: splitting parser parser.notes compiler.units kernel USING: combinators compiler.units continuations debugger
namespaces debugger io.streams.string fry combinators effects.parser io.streams.string kernel kernel.private multiline
effects.parser continuations ; namespaces parser parser.notes sequences splitting ;
IN: eval IN: eval
: parse-string ( str -- quot ) : parse-string ( str -- quot )
@ -16,6 +16,10 @@ IN: eval
SYNTAX: \ eval( \ eval parse-call-paren ; SYNTAX: \ eval( \ eval parse-call-paren ;
SYNTAX: \ eval[[
"]]" parse-multiline-string
'[ get-datastack _ parse-string with-datastack set-datastack ] append! ;
: (eval>string) ( str -- output ) : (eval>string) ( str -- output )
[ [
parser-quiet? on parser-quiet? on