steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix load errors

db4
Doug Coleman 2009-11-18 18:53:03 -06:00
parent 06ac15fd7d
commit 94a287a6ac
2 changed files with 1 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/uuid/uuid.factor
View File

@ -12,7 +12,7 @@ IN: uuid
! 0x01b21dd213814000L is the number of 100-ns intervals ! 0x01b21dd213814000L is the number of 100-ns intervals
! between the UUID epoch 1582-10-15 00:00:00 and the ! between the UUID epoch 1582-10-15 00:00:00 and the
! Unix epoch 1970-01-01 00:00:00. ! Unix epoch 1970-01-01 00:00:00.
micros 10 * HEX: 01b21dd213814000 + system-micros 10 * HEX: 01b21dd213814000 +
[ -48 shift HEX: 0fff bitand ] [ -48 shift HEX: 0fff bitand ]
[ -32 shift HEX: ffff bitand ] [ -32 shift HEX: ffff bitand ]
[ HEX: ffffffff bitand ] [ HEX: ffffffff bitand ]

15
extra/zoneinfo/zoneinfo.factor
View File

@ -41,21 +41,6 @@ TUPLE: leap ;
[ string>number ] [ string>number ]
} case ; } 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 ) : raw-rule>rule ( raw-rule -- rule )
; ;