Fixed ford ++lamp %cw misuse

This commit is contained in:
Anton Dyudin 2015-01-08 12:50:31 -08:00
parent 865ef7e72a
commit a9d2017d22

View File

@ -670,6 +670,7 @@
++ lamp :: normalize version
|= [cof=cafe bem=beam]
^- (bolt beam)
?: ?=(%ud -.r.bem) (fine cof bem)
=+ von=(ska %cw (tope bem(s ~)))
?~ von [p=cof q=[%1 [%w bem ~] ~ ~]]
(fine cof bem(r [%ud ((hard ,@) (need u.von))]))