[project @ 1999-03-09 14:51:03 by sewardj]

[ghc-hetmet.git] / ghc / interpreter / backend.h

diff --git a/ghc/interpreter/backend.h b/ghc/interpreter/backend.h
index b314382..5334454 100644 (file)
--- a/ghc/interpreter/backend.h
+++ b/ghc/interpreter/backend.h
@@ -7,8 +7,8 @@
  * Hugs version 1.4, December 1997
  *
  * $RCSfile: backend.h,v $
- * $Revision: 1.2 $
- * $Date: 1999/03/01 14:46:42 $
+ * $Revision: 1.3 $
+ * $Date: 1999/03/09 14:51:04 $
  * ------------------------------------------------------------------------*/
 
 /* --------------------------------------------------------------------------
@@ -129,9 +129,6 @@ extern Bool    isAtomic      ( StgRhs rhs );
 
 extern StgVar  mkStgVar      ( StgRhs rhs, Cell info );
 
-#define mkSeq(x,y) mkStgCase(mkStgApp(nameForce,singleton(x)),singleton(mkStgDefault(mkStgVar(NIL,NIL),y)))
-
-
 #define mkStgRep(c) mkChar(c)
 
 /*-------------------------------------------------------------------------*/