#include "options.h"
#if BIGNUM_IS_INT64
-#define primToBignum(t) prim##t##ToInt64
-#define primFromBignum(t) primInt64To##t
+#define primToBignum(t) prim/**/t/**/ToInt64
+#define primFromBignum(t) primInt64To/**/t
#define primInt64ToInt64 id
#define primEncodeFloat primEncodeFloatz
#define primDecodeFloat primDecodeFloatz
#define primEncodeDouble primEncodeDoublez
#define primDecodeDouble primDecodeDoublez
#elif BIGNUM_IS_INTEGER
-#define primToBignum(t) prim##t##ToInteger
-#define primFromBignum(t) primIntegerTo##t
+#define primToBignum(t) prim/**/t/**/ToInteger
+#define primFromBignum(t) primIntegerTo/**/t
#define primIntegerToInteger id
#define primEncodeFloat primEncodeFloatZ
#define primDecodeFloat primDecodeFloatZ
import Ratio
#ifdef __HUGS__
-#define cat2(x,y) x##y
+#define cat2(x,y) x/**/y
#define CCALL(fun) cat2(prim_,fun)
#define stToIO id
#define sizeof_int64 8
#ifndef HEAD
#ifdef __HUGS__
-#define cat2(x,y) x##y
+#define cat2(x,y) x/**/y
#define CCALL(fun) cat2(prim_,fun)
#define __CONCURRENT_HASKELL__
#define stToIO id
#endif /* ndef(__HUGS__) */
#ifdef __HUGS__
-#define cat2(x,y) x##y
+#define cat2(x,y) x/**/y
#define CCALL(fun) cat2(prim_,fun)
#define __CONCURRENT_HASKELL__
#define stToIO id
% -----------------------------------------------------------------------------
-% $Id: PrelIOBase.lhs,v 1.11 1999/06/12 16:17:26 keithw Exp $
+% $Id: PrelIOBase.lhs,v 1.12 1999/08/23 12:53:25 keithw Exp $
%
% (c) The AQUA Project, Glasgow University, 1994-1998
%
#endif
#ifdef __HUGS__
-#define cat2(x,y) x##y
+#define cat2(x,y) x/**/y
#define CCALL(fun) cat2(prim_,fun)
#define __CONCURRENT_HASKELL__
#define stToIO id
OK - on with the regression testing.
-}
-#define printTest(x) (do{ putStr ( " " ++ #x ++ " = " ) ; print (x) })
+#define printTest(x) (do{ putStr ( " " ++ "x" ++ " = " ) ; print (x) })
testEnumInt :: IO ()
putStrLn "Testing Enum Int64:"
testEnumInt64
-#define printTest(x) (do{ putStr ( " " ++ #x ++ " = " ) ; print (x) })
+#define printTest(x) (do{ putStr ( " " ++ "x" ++ " = " ) ; print (x) })
testEnumInt8 :: IO ()
testEnumInt8 = do
testEnumWord64
-#define printTest(x) (do{ putStr ( " " ++ #x ++ " = " ) ; print (x) })
+#define printTest(x) (do{ putStr ( " " ++ "x" ++ " = " ) ; print (x) })
testEnumWord8 :: IO ()
testEnumWord8 = do