From 24cdc7adf5611d536403ae625414bb10f3bc4f93 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Tue, 20 Jul 2021 21:58:46 +0000 Subject: Add a new work in progress loader to load all user defined modules --- stdlib.pl | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'stdlib.pl') diff --git a/stdlib.pl b/stdlib.pl index bbefa41..8640bdf 100644 --- a/stdlib.pl +++ b/stdlib.pl @@ -122,7 +122,8 @@ at_end_of_stream :- current_input(S), stream_property(S, end_of_stream(E)), !, - (E = at ; E = past). + (E = at ; E = past), + !. at_end_of_stream(S_or_a) :- ( atom(S_or_a) @@ -131,7 +132,8 @@ at_end_of_stream(S_or_a) :- ), stream_property(S, end_of_stream(E)), !, - (E = at; E = past). + (E = at; E = past), + !. % Standard exceptions @@ -677,4 +679,9 @@ current_op(Priority, Op_specifier, Operator) :- ), is_atom_or_var(Operator), current_ops(Operators), - member(op(Priority, Op_specifier, Operator), Operators). \ No newline at end of file + member(op(Priority, Op_specifier, Operator), Operators). + +% Loading prolog text + +consult(File) :- + loader:load_module_from_file(File). -- cgit v1.2.3