language-server: fix cord reverse

This commit is contained in:
Liam Fitzgerald 2019-11-16 11:48:25 +10:00
parent f299bf9d2c
commit 87da55073e

View File

@ -252,7 +252,7 @@
%+ scan `tape`(slag pos txt) %+ scan `tape`(slag pos txt)
;~(sfix (punt sym) (star ;~(pose prn (just `@`10)))) ;~(sfix (punt sym) (star ;~(pose prn (just `@`10))))
=/ backward=(unit term) =/ backward=(unit term)
%- (lift |=(t=@tas (crip (flop (trip t))))) %- (lift |=(t=@tas (swp 3 t)))
%+ scan `tape`(flop (scag pos txt)) %+ scan `tape`(flop (scag pos txt))
;~(sfix (punt sym) (star ;~(pose prn (just `@`10)))) ;~(sfix (punt sym) (star ;~(pose prn (just `@`10))))
=/ id=(unit term) =/ id=(unit term)