ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

king: remove the 'hardware femtosecond clock'

Browse Source
This commit is contained in:
pilfer-pandex 2021-03-17 19:53:36 -04:00
parent 2c7a2dbd6a
commit 6fa380ddc1
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkg/hs/urbit-noun/lib/Urbit/Noun/Time.hs
View File

@ -149,3 +149,9 @@ gap (Wen x) (Wen y) | x > y = x - y
addGap :: Wen -> Gap -> Wen
addGap (Wen x) y = Wen (x+y)
-- | Produce a Wen with precision compatible to that from vere's time.c
chop :: Wen -> Wen
chop (Wen (Gap g)) = Wen (Gap (mop g))
where
mop n = shiftL (shiftR n 48) 48