Skip to content

Commit

Permalink
fixed syntax error 3
Browse files Browse the repository at this point in the history
  • Loading branch information
TeamSPoon committed Dec 25, 2023
1 parent 1cba0ef commit 5ac0c84
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions prolog/echo_source_files.pl
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,7 @@
*/
% File: $PACKDIR/subclause_expansion/prolog/echo_files.pl
:- module(echo_files,
[get_file_from_stream/2]).
[get_file_from_stream/2,assume_caughtup_to/3]).

:- define_into_module(
[
Expand Down Expand Up @@ -59,7 +59,7 @@
stream_property(S,file_name(F)),
%get_file_from_stream(S,F),
character_count(S,Pos),
assume_caughtup_to(F,S,Pos))),!.
echo_files:assume_caughtup_to(F,S,Pos))),!.

check_current_echo:-
source_location(F,_), prolog_load_context(source,S), S\==F,!,
Expand Down

0 comments on commit 5ac0c84

Please sign in to comment.