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

modern: Handle ``3</foo>``

modern-harvey2
Doug Coleman 2017-12-31 18:40:38 -08:00
parent 14216fd486
commit 72833e950a
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/modern/modern.factor
View File

@ -219,6 +219,15 @@ ERROR: unexpected-terminator n string slice ;
[ ">" tail? ] [ ">" tail? ]
} 1&& ; } 1&& ;
: special-acute? ( string -- ? )
{
[ section-open? ]
[ html-self-close? ]
[ html-full-open? ]
[ html-half-open? ]
[ html-close? ]
} 1|| ;
: upper-colon? ( string -- ? ) : upper-colon? ( string -- ? )
dup { [ length 0 > ] [ [ char: \: = ] all? ] } 1&& [ dup { [ length 0 > ] [ [ char: \: = ] all? ] } 1&& [
drop t drop t
@ -304,7 +313,7 @@ ERROR: colon-word-must-be-all-uppercase-or-lowercase n string word ;
{ [ dup html-close? ] [ { [ dup html-close? ] [
! Do nothing ! Do nothing
] } ] }
! [ B ] [ [ slice-til-whitespace drop ] dip span-slices ]
} cond ; } cond ;
! Words like append! and suffix! are allowed for now. ! Words like append! and suffix! are allowed for now.