core: Add the shuffler words but without primitives.

[factor.git] / basis / calendar / parser / parser.factor

diff --git a/basis/calendar/parser/parser.factor b/basis/calendar/parser/parser.factor
index b61ec74fb0b6d1524515fcb3a1825d25f2f010a3..648115a1fbda76901707900f7d0dc59f6cdb6070 100644 (file)
--- a/basis/calendar/parser/parser.factor
+++ b/basis/calendar/parser/parser.factor
@@ -104,7 +104,7 @@ CONSTANT: rfc822-named-zones H{
     read1 CHAR: \s assert=
     read-sp checked-number
     read-sp month-abbreviations index 1 + check-timestamp
-    read-sp checked-number -rot swap
+    read-sp checked-number spin
     read-hh:mm:ss
     " " read-until drop parse-rfc822-gmt-offset <timestamp> ;
 
@@ -120,7 +120,7 @@ CONSTANT: rfc822-named-zones H{
     read1 CHAR: \s assert=
     "-" read-token checked-number
     "-" read-token month-abbreviations index 1 + check-timestamp
-    read-sp checked-number -rot swap
+    read-sp checked-number spin
     read-hh:mm:ss
     " " read-until drop parse-rfc822-gmt-offset <timestamp> ;