From: sewardj <unknown>
Date: Fri, 7 Apr 2000 16:20:53 +0000 (+0000)
Subject: [project @ 2000-04-07 16:20:53 by sewardj]
X-Git-Tag: Approximately_9120_patches~4768
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=548c73aab655263166d076151241aeee3e06edcb;p=ghc-hetmet.git

[project @ 2000-04-07 16:20:53 by sewardj]
Fix silly bug with option setting:   :s _S  --> segfault
---

diff --git a/ghc/interpreter/hugs.c b/ghc/interpreter/hugs.c
index 1da17a1..fe97ca4 100644
--- a/ghc/interpreter/hugs.c
+++ b/ghc/interpreter/hugs.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: hugs.c,v $
- * $Revision: 1.62 $
- * $Date: 2000/04/07 10:00:28 $
+ * $Revision: 1.63 $
+ * $Date: 2000/04/07 16:20:53 $
  * ------------------------------------------------------------------------*/
 
 #include <setjmp.h>
@@ -711,7 +711,7 @@ static Void local set() {               /* change command line options from*/
         do {
             if (!processOption(s)) {
                 ERRMSG(0) "Option string must begin with `+' or `-'"
-                EEND;
+                EEND_NO_LONGJMP;
             }
         } while ((s=readFilename())!=0);
 #if USE_REGISTRY