reproduce panick originating in set_input/1 call from top-level
Signed-off-by: Thierry Marianne <thierry@marianne.io>
This commit is contained in:
@@ -0,0 +1 @@
|
||||
true.
|
||||
@@ -0,0 +1,10 @@
|
||||
:- use_module(library(files)).
|
||||
|
||||
main :-
|
||||
current_input(UserStream),
|
||||
open('./input', read, InputStream),
|
||||
set_input(InputStream),
|
||||
read_term(T, []), write(T),
|
||||
set_input(UserStream).
|
||||
|
||||
:- initialization(main).
|
||||
@@ -0,0 +1 @@
|
||||
true
|
||||
@@ -0,0 +1 @@
|
||||
args = ["-f", "--no-add-history", "-g", "consult('set_input_from_top-level.pl').", "-g", "halt."]
|
||||
Reference in New Issue
Block a user