Various fixes and improvements.

This commit is contained in:
C. Guy Yarvin 2015-02-20 18:40:15 -08:00
parent e0cfa0fe39
commit 0d511f2a59

View File

@ -162,7 +162,6 @@
++ se-just :: adjusted buffer
|= lin=(pair ,@ud (list ,@c))
^+ +>
~& [%just lin mir]
=. off ?:((lth p.lin edg) 0 (sub p.lin edg))
(se-show (sub p.lin off) (scag edg (slag off q.lin)))
::
@ -507,9 +506,6 @@
++ pour
|= [ost=bone pax=path sih=*]
^- [(list move) _+>]
=- ~& [%pour-moves -.foo]
foo
^= foo
=+ sih=((hard sign) sih)
?> ?=([@ @ ~] pax)
=< se-abet