[project @ 1997-08-25 21:49:52 by sof]

rename unpackCString2# to unpackNBytes#

diff --git a/ghc/compiler/prelude/PrelVals.lhs b/ghc/compiler/prelude/PrelVals.lhs
index 2095524..6af3ca2 100644 (file)
--- a/ghc/compiler/prelude/PrelVals.lhs
+++ b/ghc/compiler/prelude/PrelVals.lhs
@@ -163,7 +163,7 @@ unpackCStringId
 -- but I don't like wired-in IdInfos (WDP)
 
 unpackCString2Id -- for cases when a string has a NUL in it
-  = pcMiscPrelId unpackCString2IdKey pACKED_STRING SLIT("unpackCString2#")
+  = pcMiscPrelId unpackCString2IdKey pACKED_STRING SLIT("unpackNBytes#")
                 (mkFunTys [addrPrimTy{-a char *-}, intPrimTy{-length-}] stringTy)
                 noIdInfo