support trace

fix for ^c in readline


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@133 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-08-08 21:17:27 +00:00
parent 5d57058e8e
commit 8fd1bc92f3
16 changed files with 6442 additions and 2652 deletions

View File

@@ -710,7 +710,7 @@ InitCodes(void)
AtomNot,
AtomQuery,
AtomSemic,
AtomSpiedMetaCall,
AtomSpy,
AtomStream,
AtomStreamPos,
AtomVar;
@@ -881,7 +881,7 @@ InitCodes(void)
AtomStreamPos = LookupAtom ("$stream_position");
heap_regs->atom_throw = LookupAtom("$throw");
heap_regs->atom_true = LookupAtom("true");
AtomSpiedMetaCall = LookupAtom("$spied_meta_call");
AtomSpy = LookupAtom("$spy");
heap_regs->atom_user = LookupAtom ("user");
heap_regs->atom_usr_err = LookupAtom ("user_error");
heap_regs->atom_usr_in = LookupAtom ("user_input");
@@ -927,7 +927,7 @@ InitCodes(void)
heap_regs->functor_or = MkFunctor(AtomSemic, 2);
heap_regs->functor_portray = MkFunctor(AtomPortray, 1);
heap_regs->functor_query = MkFunctor(AtomQuery, 1);
heap_regs->functor_spied_meta_call = MkFunctor(AtomSpiedMetaCall, 1);
heap_regs->functor_spy = MkFunctor(AtomSpy, 1);
heap_regs->functor_stream = MkFunctor (AtomStream, 1);
heap_regs->functor_stream_pos = MkFunctor (AtomStreamPos, 3);
heap_regs->functor_stream_eOS = MkFunctor (LookupAtom("end_of_stream"), 1);