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

new catch and throw mechanism (first try).

Browse Source 
hide built-in predicates that should not be seen in trace mode


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@275 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-01-07 06:28:04 +00:00
parent cedfb57737
commit 5997e5a109
24 changed files with 371 additions and 574 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
C/init.c
View File

@@ -929,7 +929,6 @@ InitCodes(void)
heap_regs->atom_stack_free = LookupAtom("stackfree");
AtomStream = LookupAtom ("$stream");
AtomStreamPos = LookupAtom ("$stream_position");
heap_regs->atom_throw = LookupAtom("$throw");
heap_regs->atom_true = LookupAtom("true");
AtomSpy = LookupAtom("$spy");
heap_regs->atom_user = LookupAtom ("user");
@@ -987,6 +986,7 @@ InitCodes(void)
heap_regs->functor_stream_eOS = MkFunctor (LookupAtom("end_of_stream"), 1);
heap_regs->functor_change_module = MkFunctor (LookupAtom("$change_module"), 1);
heap_regs->functor_current_module = MkFunctor (LookupAtom("$current_module"), 1);
heap_regs->functor_throw = MkFunctor( LookupAtom("throw"), 1);
heap_regs->functor_u_minus = MkFunctor (heap_regs->atom_minus, 1);
heap_regs->functor_u_plus = MkFunctor (heap_regs->atom_plus, 1);
heap_regs->functor_v_bar = MkFunctor(LookupAtom("|"), 2);