ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-03 14:37:05 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix more printing/parsing issues.

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-12-07 18:55:03 -08:00
parent 5c7fe4e61e
commit 341c7e2a12
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
arvo/hoon.hoon
View File

@ -2458,19 +2458,16 @@
^= d
=+ d=0
|- ^- [p=@ q=@]
?: =('.' b)
[d c]
?< =(0 c)
=+ [e=(end 3 1 c) f=(rsh 3 1 c)]
?: =('.' e)
[d f]
%= $
c f
d %+ add
(mul 16 d)
%+ sub
e
?: &((gte e '0') (lte e '9'))
48
?>(&((gte e 'a') (lte e 'z')) 87)
b (end 3 1 c)
c (rsh 3 1 c)
d %+ add (mul 16 d)
%+ sub b
?: &((gte b '0') (lte b '9')) 48
?>(&((gte b 'a') (lte b 'z')) 87)
==
'.' ['.' $(a c)]
'~' ['~' $(a c)]
@ -2493,10 +2490,11 @@
==
[c d]
?+ c :- '~'
=+ e=(met 2 c)
|- ^- tape
?: =(0 c)
['.' d]
=+ e=(dec (met 2 c))
=. e (dec e)
=+ f=(rsh 2 e c)
[(add ?:((lte f 9) 48 87) f) $(c (end 2 e c))]
' ' ['.' d]
@ -5163,7 +5161,7 @@
:+ ~
%leaf
?: =(%$ p.q.ham) ~(rend co [~ %ud lum])
?: &(=(%ta p.q.ham) !=(0 lum)) ['\'' (weld (rip 3 lum) ['\'' ~])]
:: ?: &(=(%ta p.q.ham) !=(0 lum)) ['\'' (weld (rip 3 lum) ['\'' ~])]
?: =(%tas p.q.ham) ['%' (rip 3 lum)]
~(rend co [~ p.q.ham lum])
::