From: Alex Smith <ais523@bham.ac.uk>
Date: Thu, 3 Jul 2008 03:32:00 +0000 (-0400)
Subject: Fix typos and other silly bugs in external calls system
X-Git-Tag: 0.29~215
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=6c6ac952462c889cd05d814fea4f6d36caae9177;p=intercal.git

Fix typos and other silly bugs in external calls system
---

diff --git a/src/ick_ec.h b/src/ick_ec.h
index e8476da..9f56258 100644
--- a/src/ick_ec.h
+++ b/src/ick_ec.h
@@ -124,7 +124,7 @@ void id(void)					  \
   do {						\
     ick_scheduleforget(amount);			\
     ick_dogoto(ICK_EC_PP_3,-1,0);		\
-    ick_lose(IE778, -1, (char*) NULL);		\
+    ick_lose(ICK_IE778, -1, (char*) NULL);	\
     return;					\
   ick_l2_ICK_EC_PP_2: ;				\
     if(ick_global_linelabel != ICK_EC_PP_3)	\
@@ -137,7 +137,9 @@ void id(void)					  \
   if(0)						\
   {						\
   ick_l6_ICK_EC_PP_6:				\
+    ick_global_checkmode=0;			\
     block ;					\
+    ick_global_checkmode=ick_local_checkmode;	\
     goto ick_l6_ICK_EC_PP_6;			\
   }
 
@@ -195,7 +197,7 @@ void id(void)					  \
   }
 
 #define ick_nextfromif(expr,condition) \
-  ick_docomefromif(expr,-1,condition)
+  ick_donextfromif(expr,-1,condition)
 
 #define ick_donextfromif(expr,lbl,condition)	                 \
   if(0)								 \