From 8d84a81141e0d780037b1f9aca90a3341762f23f Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 25 Nov 2007 03:56:04 -0600 Subject: [PATCH] Use the builtin 'integer' --- extra/regexp/regexp.factor | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/extra/regexp/regexp.factor b/extra/regexp/regexp.factor index c7abaada26..79f826bafa 100644 --- a/extra/regexp/regexp.factor +++ b/extra/regexp/regexp.factor @@ -1,6 +1,6 @@ USING: combinators kernel lazy-lists math math.parser -namespaces parser parser-combinators promises sequences -strings ; +namespaces parser parser-combinators parser-combinators.simple +promises sequences strings ; USING: continuations io prettyprint ; IN: regexp @@ -17,8 +17,6 @@ IN: regexp : 'string' 'char' <+> [ >string token ] <@ ; -: 'integer' [ digit? ] satisfy <+> [ string>number ] <@ ; - : exactly-n ( parser n -- parser' ) swap and-parser construct-boa ;