Author: leo
Date: Thu Oct 6 09:30:09 2005
New Revision: 9372
Modified:
trunk/languages/parakeet/parakeet.imc
Log:
one more set_eh changed to push_eh
Modified: trunk/languages/parakeet/parakeet.imc
==============================================================================
--- trunk/languages/parakeet/parakeet.imc (original)
+++ trunk/languages/parakeet/parakeet.imc Thu Oct 6 09:30:09 2005
@@ -176,12 +176,11 @@
.endm
.macro findWord(wrd)
- newsub $P1, .Exception_Handler, .$NotFound
- set_eh $P1
+ push_eh .$NotFound
find_lex .TOS, .wrd
+ clear_eh
goto .$End
.local $NotFound:
- clear_eh
$P0 = new .Exception
$P0["_message"] = "UnknownWord"
throw $P0
