From e714d80140457f02a70bb4206c1db438bb20d674 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 21 Jun 2016 10:21:25 -0700 Subject: [PATCH] modern: fix bug i thought i fixed but had git troubles --- core/modern/modern.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/modern/modern.factor b/core/modern/modern.factor index 8c07133c31..069a394d7c 100644 --- a/core/modern/modern.factor +++ b/core/modern/modern.factor @@ -150,7 +150,7 @@ M: array collapse-decorators ] if ; : top-level-less-than? ( string -- ? ) - dup "<" tail? [ + dup { [ "<" tail? ] [ length 1 > ] [ first char: A char: Z between? ] } 1&& [ but-last dup length 1 > [ [ [ char: \: = ] find-last ] keep