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

modern: Disallow compound syntax for now.

modern-harvey2
Doug Coleman 2017-09-24 12:36:34 -05:00
parent b8a502d7e2
commit e8a72b0268
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/modern/modern.factor
View File

@ -293,6 +293,12 @@ ERROR: mismatched-terminator n string slice ;
f f
] if ; inline ] if ; inline
ERROR: compound-syntax-disallowed seq i obj ;
: check-for-compound-syntax ( seq -- seq' )
dup [ length 1 > ] find
[ compound-syntax-disallowed ] [ drop ] if*
concat ;
: string>literals ( string -- sequence ) : string>literals ( string -- sequence )
[ 0 ] dip [ [ 0 ] dip [
[ [
@ -306,7 +312,7 @@ ERROR: mismatched-terminator n string slice ;
] loop ] loop
] { } make f like [ , ] when* over ] { } make f like [ , ] when* over
] loop ] loop
] { } make 2nip ; ] { } make 2nip check-for-compound-syntax ;
: vocab>literals ( vocab -- sequence ) : vocab>literals ( vocab -- sequence )
".private" ?tail drop ".private" ?tail drop