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