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

Merge branch 'master' of yap.dcc.fc.up.pt:yap-6

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-11-26 23:14:09 +00:00
commit f470a44efe
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/save.c
View File

@ -608,6 +608,8 @@ do_save(int mode) {
static Int static Int
p_save(void) p_save(void)
{ {
Int res;
#if defined(YAPOR) && !defined(THREADS) #if defined(YAPOR) && !defined(THREADS)
if (number_workers != 1) { if (number_workers != 1) {
Yap_Error(SYSTEM_ERROR,TermNil,"cannot perform save: more than a worker/thread running"); Yap_Error(SYSTEM_ERROR,TermNil,"cannot perform save: more than a worker/thread running");
@ -620,7 +622,10 @@ p_save(void)
} }
#endif #endif
which_save = 1; which_save = 1;
return(do_save(DO_EVERYTHING)); Yap_StartSlots();
res = do_save(DO_EVERYTHING);
Yap_CloseSlots();
return res;
} }
/* Saves a complete prolog environment */ /* Saves a complete prolog environment */

2
library/block_diagram.yap
View File

@ -219,7 +219,7 @@
parameter(texts((+inf))). parameter(texts((+inf))).
parameter(depth((+inf))). parameter(depth((+inf))).
parameter(default_ext('.dot')). parameter(default_ext('.yap')).
make_diagram(InputFile, OutputFile):- make_diagram(InputFile, OutputFile):-
tell(OutputFile), tell(OutputFile),
write('digraph G {\nrankdir=BT'), nl, write('digraph G {\nrankdir=BT'), nl,

3
library/charsio.yap
View File

@ -28,7 +28,8 @@
open_chars_stream/2, open_chars_stream/2,
with_output_to_chars/2, with_output_to_chars/2,
with_output_to_chars/3, with_output_to_chars/3,
with_output_to_chars/4 with_output_to_chars/4,
term_to_atom/2
]). ]).
:- meta_predicate(with_output_to_chars(0,?)). :- meta_predicate(with_output_to_chars(0,?)).