Boot process.

This commit is contained in:
C. Guy Yarvin 2014-09-12 12:32:59 -07:00
parent 07cf59be1b
commit be18a61cb1

View File

@ -1,24 +0,0 @@
?> ?=([@ @] .)
%. .
|= [x=@ y=@]
=- (add:all x y)
^= all
=> %164
~% %k.164 ~ ~
|%
++ add
~/ %add
|= [a=@ b=@]
^- @
?: =(0 a) b
$(a (dec a), b +(b))
::
++ dec
~/ %dec
|= a=@
?< =(0 a)
=+ b=0
|- ^- @
?: =(a +(b)) b
$(b +(b))
--