Removed unused code.

This commit is contained in:
C. Guy Yarvin 2015-11-27 11:37:06 -08:00
parent f800913504
commit 0723b224da

View File

@ -81,7 +81,11 @@
?@ +.b ~ :: ?@ +.b ~ ::
:- ~ :: :- ~ ::
u=[p=(a +>-.b) q=[p=(hair -.b) q=(tape +.b)]] :: u=[p=(a +>-.b) q=[p=(hair -.b) q=(tape +.b)]] ::
++ limb $|(term $%([%& p=axis] [%| p=@ud q=term])) :: ++ limb $| term ::
$% [%& p=axis] ::
[%| p=@ud q=term] ::
[%2 p=@ud q=(unit term)] ::
== ::
++ line ,[p=[%leaf p=odor q=@] q=tile] :: %kelp case ++ line ,[p=[%leaf p=odor q=@] q=tile] :: %kelp case
++ list |* a=_,* :: null-term list ++ list |* a=_,* :: null-term list
$|(~ [i=a t=(list a)]) :: $|(~ [i=a t=(list a)]) ::