Commit e25c9d5e authored by simonmar's avatar simonmar
Browse files

[project @ 2001-06-27 16:33:59 by simonmar]

Print the contents of opt_InPackage rather than "<THIS>" for the home
package.
parent 42523cb9
...@@ -117,7 +117,7 @@ preludePackage :: PackageName ...@@ -117,7 +117,7 @@ preludePackage :: PackageName
preludePackage = SLIT("std") preludePackage = SLIT("std")
packageInfoPackage :: PackageInfo -> PackageName packageInfoPackage :: PackageInfo -> PackageName
packageInfoPackage ThisPackage = SLIT("<THIS>") packageInfoPackage ThisPackage = opt_InPackage
packageInfoPackage DunnoYet = SLIT("<?>") packageInfoPackage DunnoYet = SLIT("<?>")
packageInfoPackage (AnotherPackage p) = p packageInfoPackage (AnotherPackage p) = p
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment