From 4138ac0654d8b198bb0d985984ed50b56ea22d2a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 30 Mar 2016 10:29:43 -0700
Subject: [PATCH] peg: simplify parse-satisfy.

---
 basis/peg/peg.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor
index ac1c525de7..1ac261494b 100644
--- a/basis/peg/peg.factor
+++ b/basis/peg/peg.factor
@@ -345,15 +345,15 @@ M: token-parser (compile) ( peg -- quot )
 TUPLE: satisfy-parser quot ;
 
 : parse-satisfy ( input quot -- result )
-    swap dup empty? [
-        2drop f
+    swap [
+        drop f
     ] [
         unclip-slice rot dupd call [
             <parse-result>
         ] [
             2drop f
         ] if
-    ] if ; inline
+    ] if-empty ; inline
 
 M: satisfy-parser (compile)
     quot>> '[ input-slice _ parse-satisfy ] ;