use load_text/2

trealla-prolog · Sep 1, 2024 · bc83696 · bc83696
1 parent 96f13a9
commit bc83696
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/src/trealla b/src/trealla
diff --git a/trealla/library.go b/trealla/library.go
@@ -162,8 +162,8 @@ func http_consult_1(_ Prolog, _ Subquery, goal Term) Term {
 		return resourceError(Atom(err.Error()), piTerm("http_consult", 1))
 	}
 
-	// call(URL:'$load_chars'(Text)).
-	return Atom("call").Of(Atom(":").Of(module, Atom("$load_chars").Of(buf.String())))
+	// call(load_text(Text, module(URL))).
+	return Atom("call").Of(Atom("load_text").Of(buf.String(), []Term{Atom("module").Of(module)}))
 }
 
 func crypto_data_hash_3(pl Prolog, _ Subquery, goal Term) Term {

diff --git a/trealla/libtpl.wasm b/trealla/libtpl.wasm
diff --git a/trealla/prolog.go b/trealla/prolog.go
@@ -351,8 +351,8 @@ func (pl *prolog) ConsultText(ctx context.Context, module, text string) error {
 }
 
 func (pl *prolog) consultText(ctx context.Context, module, text string) error {
-	// Module:'$load_chars'(Text).
-	goal := Atom(":").Of(Atom(module), Atom("$load_chars").Of(text))
+	// load_text(Text, [module(Module)]).
+	goal := Atom("load_text").Of(text, []Term{Atom("module").Of(Atom(module))})
 	_, err := pl.queryOnce(ctx, goal.String())
 	if err != nil {
 		err = fmt.Errorf("trealla: consult text failed: %w", err)
+9 −9		.github/workflows/build.yaml
+1 −0		library/spin.pl
+1 −0		library/wasm_generic.pl
+1 −0		library/wasm_js.pl
+5 −5		src/bif_bboard.c
+60 −6		src/bif_predicates.c
+1 −24		src/bif_streams.c
+6 −6		src/module.c
+50 −36		src/print.c
+1 −1		tests/issues-OLD/test047.expected