lsp server mostly works again

trueagi-io · Dec 4, 2024 · 91b2f00 · 91b2f00
1 parent fd3331f
commit 91b2f00
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/libraries/lsp_server_metta/prolog/lsp_metta_xref.pl b/libraries/lsp_server_metta/prolog/lsp_metta_xref.pl
@@ -29,7 +29,7 @@
 %load_mettalog_xref(LTH):- atom_concat(LTH,'/integration/metta_swi',Init),
 %  exists_source(Init),!,metta:ensure_loaded(Init),!,listing(metta:'$lgt_default_flag'/2).
 load_mettalog_xref(LTH):- \+ exists_directory(LTH),!,dmsg("Skipping metta: not exists_directory").
-load_mettalog_xref(LTH):- absolute_file_name('src/canary/metta_interp.pl',File,[relative_to(LTH)]),!,
+load_mettalog_xref(LTH):- absolute_file_name('prolog/metta_lang/metta_interp.pl',File,[relative_to(LTH)]),!,
    notrace(load_mettalog_xref_file(File)).
 load_mettalog_xref(LTH):- dmsg("Skipping metta="+LTH).
 

diff --git a/prolog/metta_lsp.pl b/prolog/metta_lsp.pl
@@ -1,12 +1,12 @@
+:- module(metta_lsp, []).
 
-
-:- (prolog_load_context(directory, Value);Value='.'),
+unused:- (prolog_load_context(directory, Value);Value='.'),
     absolute_file_name('../../libraries/',Dir,[relative_to(Value)]),
     absolute_file_name('../../',MettaDir,[relative_to(Value)]),
     atom_concat(Dir,'predicate_streams',PS),
     atom_concat(Dir,'logicmoo_utils',LU),
     atom_concat(Dir,'lsp_server_metta',LSP),
-    attach_packs(Dir,[duplicate(replace),search(first)]),
+    % attach_packs(Dir,[duplicate(replace),search(first)]),
     pack_attach(PS,[duplicate(replace),search(first)]),
     pack_attach(LU,[duplicate(replace),search(first)]),
     pack_attach(MettaDir,[duplicate(replace),search(first)]),