From 157297c1906ab083afd900f3012512b499ab414d Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 13 Jun 2016 13:34:30 -0700 Subject: [PATCH] modern: minor cleanup --- core/modern/modern.factor | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/core/modern/modern.factor b/core/modern/modern.factor index 9f2e69e4ff..b72bf7f9f2 100644 --- a/core/modern/modern.factor +++ b/core/modern/modern.factor @@ -387,9 +387,8 @@ ERROR: backslash-expects-whitespace slice ; ! If the slice is 0 width, we stopped on whitespace. ! Advance the index and read again! : read-token-or-whitespace ( n string slice -- n' string slice ) - dup length 0 = - [ drop [ 1 + ] dip lex-factor ] - [ make-tag-literal ] if ; + [ [ 1 + ] dip lex-factor ] + [ make-tag-literal ] if-empty ; ERROR: mismatched-terminator n string slice ; : read-terminator ( n string slice -- n' string slice )