fix load errors

diff --git a/basis/uuid/uuid.factor b/basis/uuid/uuid.factor
index 4d284a1a40653ddeedbf61871bb57e50c654c7e1..118db67d907eed15410fa524f4dbe932637d6b70 100644 (file)
--- a/basis/uuid/uuid.factor
+++ b/basis/uuid/uuid.factor
@@ -12,7 +12,7 @@ IN: uuid
     ! 0x01b21dd213814000L is the number of 100-ns intervals
     ! between the UUID epoch 1582-10-15 00:00:00 and the 
     ! Unix epoch 1970-01-01 00:00:00.
-    micros 10 * HEX: 01b21dd213814000 +
+    system-micros 10 * HEX: 01b21dd213814000 +
     [ -48 shift HEX: 0fff bitand ] 
     [ -32 shift HEX: ffff bitand ]
     [ HEX: ffffffff bitand ]

diff --git a/extra/zoneinfo/zoneinfo.factor b/extra/zoneinfo/zoneinfo.factor
index f93531cb8103a47f619403d82c3379b6beedb80f..e298046dd3f0462ad51432a2482d357820779746 100644 (file)
--- a/extra/zoneinfo/zoneinfo.factor
+++ b/extra/zoneinfo/zoneinfo.factor
@@ -41,21 +41,6 @@ TUPLE: leap ;
         [ string>number ]
     } case ;
 
-/*
-: rule-on ( string -- obj )
-    {
-        { [ dup string>number ] [ ] }
-        { [ "last" ?head ] [ month-abbreviation>n ] }
-        { [ ] [ month-abbreviation>n ] }
-    } cond ;
-*/
-
-            ! [ string>number -1/0. or ]
-            ! [ rule-to ]
-            
-            ! [ month-abbreviation>n ]
-            ! [ rule-on ]
-
 : raw-rule>rule ( raw-rule -- rule )
     ;