mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 00:30:21 +02:00
Code Activity

rename <control> to <abort>

Browse source 
* libguile/vm-i-system.c (abort): Rename instruction from `throw'.
* libguile/vm.c (vm_abort): Rename from vm_throw.
* module/language/tree-il.scm (<abort>, make-abort, abort-src,
  abort-tag, abort-args: Rename from <control> & company.

* module/language/tree-il/analyze.scm:
* module/language/tree-il/compile-glil.scm:
* module/language/tree-il/primitives.scm: Fix all callers.
This commit is contained in:
Andy Wingo 2010-02-19 10:49:24 +01:00
parent 07a0c7d5d9
commit 6e84cb95b1
6 changed files with 29 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/vm-i-system.c
View file

@ -1508,7 +1508,7 @@ VM_DEFINE_INSTRUCTION (85, wind, "wind", 0, 2, 0)
NEXT;
}
VM_DEFINE_INSTRUCTION (86, throw, "throw", 1, -1, -1)
VM_DEFINE_INSTRUCTION (86, abort, "abort", 1, -1, -1)
{
unsigned n = FETCH ();
SCM k;
@ -1517,8 +1517,8 @@ VM_DEFINE_INSTRUCTION (86, throw, "throw", 1, -1, -1)
POP (args);
POP (k);
SYNC_REGISTER ();
vm_throw (vm, k, args);
/* vm_throw should not return */
vm_abort (vm, k, args);
/* vm_abort should not return */
abort ();
}