Resolved merge.

[factor.git] / basis / quoting / quoting.factor

diff --git a/basis/quoting/quoting.factor b/basis/quoting/quoting.factor
index 5b09347c8c21ca1cc3b7e2f7984104a553d4b7f5..86d8183ac6ecc3573b650486310f8c5a4193b75e 100644 (file)
--- a/basis/quoting/quoting.factor
+++ b/basis/quoting/quoting.factor
@@ -9,8 +9,8 @@ IN: quoting
     {
         [ length 1 > ]
         [ first quote? ]
-        [ [ first ] [ peek ] bi = ]
+        [ [ first ] [ last ] bi = ]
     } 1&& ;
 
 : unquote ( str -- newstr )
-    dup quoted? [ but-last-slice rest-slice >string ] when ;
\ No newline at end of file
+    dup quoted? [ but-last-slice rest-slice >string ] when ;