math.parser: simplify using member-eq?.

2015-07-16 09:55:33 -07:00 · 2015-07-16 09:55:33 -07:00 · c7868226d0
parent 6cded6437f
commit c7868226d0
1 changed files with 2 additions and 2 deletions
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@ -149,8 +149,8 @@ DEFER: @neg-digit

 : exponent-char? ( number-parse n char -- number-parse n char ? )
    pick radix>> {
-        { 10 [ dup CHAR: e = [ t ] [ dup CHAR: E = ] if ] }
-        [ drop dup CHAR: p = [ t ] [ dup CHAR: P = ] if ]
+        { 10 [ dup "eE" member-eq? ] }
+        [ drop dup "pP" member-eq? ]
    } case ; inline

 : or-exponent ( i number-parse n char quot -- n/f )