diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix save/1 and save/2 to at least work now.

Browse Source
This commit is contained in:
Vítor Santos Costa
2010-11-29 18:08:11 +00:00
parent a1d9a1d095
commit 863747da7b
2 changed files with 19 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
pl/utils.yap
View File

@@ -307,19 +307,16 @@ getenv(Na,Val) :-
%%% Saving and restoring a computation
save(A) :- var(A), !,
'$do_error'(instantiation_error,save(A)).
save(A) :- atom(A), !, name(A,S), '$save'(S).
save(S) :- '$save'(S).
save(A) :- save(A,_).
save(A,_) :- var(A), !,
'$do_error'(instantiation_error,save(A)).
save(A,OUT) :- atom(A), !, name(A,S), '$save'(S,OUT).
save(A,OUT) :- atom(A), !, atom_codes(A,S), '$save'(S,OUT).
save(S,OUT) :- '$save'(S,OUT).
save_program(A) :- var(A), !,
'$do_error'(instantiation_error,save_program(A)).
save_program(A) :- atom(A), !, name(A,S), '$save_program'(S).
save_program(A) :- atom(A), !, atom_codes(A,S), '$save_program'(S).
save_program(S) :- '$save_program'(S).
save_program(A, G) :- var(A), !,