Revert "language-server: parse commands permissively"

This reverts commit 8f8ec8bcc5.
This commit is contained in:
Liam Fitzgerald 2021-01-29 10:09:52 +10:00
parent 9c30e4e126
commit 3c8e73cbc8
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB

View File

@ -247,15 +247,15 @@
::
++ get-id
|= [pos=@ud txt=tape]
^- [forward=(unit @t) backward=(unit @t) id=(unit @t)]
=/ seek
;~(sfix (punt (cook crip (star prn))) (star ;~(pose prn (just `@`10))))
=/ forward=(unit @t)
(scan (slag pos txt) seek)
=/ backward=(unit @t)
^- [forward=(unit term) backward=(unit term) id=(unit term)]
=/ forward=(unit term)
%+ scan `tape`(slag pos txt)
;~(sfix (punt sym) (star ;~(pose prn (just `@`10))))
=/ backward=(unit term)
%- (lift |=(t=@tas (swp 3 t)))
(scan (flop (scag pos txt)) seek)
=/ id=(unit @t)
%+ scan `tape`(flop (scag pos txt))
;~(sfix (punt sym) (star ;~(pose prn (just `@`10))))
=/ id=(unit term)
?~ forward
?~ backward
~