This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/regression/modules/dynimport.yap

18 lines
368 B
Plaintext
Raw Normal View History

2016-02-22 13:01:46 +00:00
:- module( dynimport, d/1).
:- use_module( mod1 ).
:- initialization( open('errors.md', write, _Out, [alias(user_error)]), now ).
:- format(user_error, ' Report on dynamic module import.~n~n', []).
d(2).
:- format(user_error, ' + ok if ok~n~n~*c~n', [4,0'~,4,0'~]).
:- initialization( ( mod1(_), writeln(ok) ), now ).
:- format(user_error, '~*c~n', [4,0'~]).