syntax changes.
This commit is contained in:
parent
2e43165a68
commit
1cbc0705c6
@ -87,7 +87,7 @@ dbload(F, _, G) :-
|
|||||||
'$do_error'(type_error(atom,F),G).
|
'$do_error'(type_error(atom,F),G).
|
||||||
|
|
||||||
do_dbload(F0, M0, G) :-
|
do_dbload(F0, M0, G) :-
|
||||||
'$full_filename'(F0,F,G),
|
'$full_filename'(F0, F, G),
|
||||||
assert(dbprocess(F, M0)),
|
assert(dbprocess(F, M0)),
|
||||||
open(F, read, R),
|
open(F, read, R),
|
||||||
check_dbload_stream(R, M0),
|
check_dbload_stream(R, M0),
|
||||||
|
Reference in New Issue
Block a user