core: Add the shuffler words but without primitives.

[factor.git] / extra / imap / imap.factor

diff --git a/extra/imap/imap.factor b/extra/imap/imap.factor
index b2db9b5d01edc731b96cd54c40965357351befbb..892b94de44dcf870d1c74b98992b4ca6107fe09c 100644 (file)
--- a/extra/imap/imap.factor
+++ b/extra/imap/imap.factor
@@ -27,7 +27,7 @@ CONSTANT: IMAP4_SSL_PORT 993
         ! Date, month, year.
         "-" read-token checked-number
         "-" read-token month-abbreviations index 1 +
-        read-sp checked-number -rot swap
+        read-sp checked-number spin
         ! Hour, minute second and gmt offset.
         read-hms " " expect readln parse-rfc822-gmt-offset <timestamp>
     ] with-string-reader  ;