diff options
| author | keithw <unknown> | 1999-08-23 12:53:27 +0000 |
|---|---|---|
| committer | keithw <unknown> | 1999-08-23 12:53:27 +0000 |
| commit | d392968d909449a16d02e0e70a5eb9eddb1c07ab (patch) | |
| tree | 4755318b847c166ea70ed4a34f5d3c5286b84bb5 /ghc/lib/std/IO.lhs | |
| parent | 57ae9370d8513ae0f27fee4d2f9fd6cbb77613ea (diff) | |
| download | haskell-d392968d909449a16d02e0e70a5eb9eddb1c07ab.tar.gz | |
[project @ 1999-08-23 12:53:23 by keithw]
Revert commit of 1999/06/12 16:17:28. We use -traditional for CPP,
and so x##y and #x don't work and we must use x/**/y (ugh) and "x"
(urk!!) instead. Ah well.
Diffstat (limited to 'ghc/lib/std/IO.lhs')
| -rw-r--r-- | ghc/lib/std/IO.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/lib/std/IO.lhs b/ghc/lib/std/IO.lhs index b9a28ab066..aeb30253cb 100644 --- a/ghc/lib/std/IO.lhs +++ b/ghc/lib/std/IO.lhs @@ -127,7 +127,7 @@ import Char ( ord, chr ) #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 |