the following code snippet is throwing a "heap overflow" error after 1,973 items.
Code: Select all
class predicates processLists : (string*, string*) (i,i). clauses processLists(,_):-!. processLists(_,):-!. processLists([H1|T1],[H2|T2]):-!, % ...set a directory, pull image file 1 (name listed in H1), % ...set another directory, pull image file 2 (name listed in H2), % close 1st image, close 2nd image % merge two images into a 3rd one with vpi::Draw/4 % close 3rd image % save 3rd image to hard drive processLists(T1,T2), !.