fix error handling from within recursive invocations of emulator

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@427 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

C/write.c

@@ -220,7 +220,7 @@ putAtom(Atom atom)			/* writes an atom	 */
   char           *s = RepAtom(atom)->StrOfAE;
   wtype          atom_or_symbol = AtomIsSymbols(s);
 
-#define CRYPT_FOR_STEVE 1
+  /* #define CRYPT_FOR_STEVE 1*/
 #ifdef CRYPT_FOR_STEVE
   if (GetValue(LookupAtom("crypt_atoms")) != TermNil && GetAProp(atom, OpProperty) == NIL) {
     char s[16];