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

modern: fix bug i thought i fixed but had git troubles

locals-and-roots
Doug Coleman 2016-06-21 10:21:25 -07:00
parent b21c5563ef
commit e714d80140
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/modern/modern.factor
View File

@ -150,7 +150,7 @@ M: array collapse-decorators
] if ; ] if ;
: top-level-less-than? ( string -- ? ) : top-level-less-than? ( string -- ? )
dup "<" tail? [ dup { [ "<" tail? ] [ length 1 > ] [ first char: A char: Z between? ] } 1&& [
but-last but-last
dup length 1 > [ dup length 1 > [
[ [ char: \: = ] find-last ] keep [ [ char: \: = ] find-last ] keep