Sample No: 98

Relates to calls:

reconsult

prolog_main():-

file_str("DD.DBA",Str),

consult("DD.DBA"),

fact(1),

retract(fact(1)),

reconsult("DD.DBA"),

retract(fact(1)),

write("Must be failed"),nl,

fact(1).

Copyright © 1997-2003 EDMGROUP (Australia)