diff options
Diffstat (limited to 'ghc/interpreter/backend.h')
| -rw-r--r-- | ghc/interpreter/backend.h | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/ghc/interpreter/backend.h b/ghc/interpreter/backend.h index b31438220f..5334454733 100644 --- 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) /*-------------------------------------------------------------------------*/ |