Author: particle
Date: Mon Apr 9 16:01:47 2007
New Revision: 18091
Modified:
trunk/src/pmc/exporter.pmc
trunk/t/pmc/exporter.t
Log:
[pmc]: Exporter code and test cleanups
Modified: trunk/src/pmc/exporter.pmc
==============================================================================
--- trunk/src/pmc/exporter.pmc (original)
+++ trunk/src/pmc/exporter.pmc Mon Apr 9 16:01:47 2007
@@ -303,11 +303,11 @@
if (got_globals)
PCCINVOKE(interp, SELF, "globals", PMC *globals);
- if (exp->ns_src == PMCNULL) {
+ if (PMC_IS_NULL(exp->ns_src)) {
real_exception(interp, NULL, 0, "source namespace not set");
return;
}
- if (exp->ns_dest == PMCNULL) {
+ if (PMC_IS_NULL(exp->ns_dest)) {
real_exception(interp, NULL, 0, "destination namespace not set");
return;
}
Modified: trunk/t/pmc/exporter.t
==============================================================================
--- trunk/t/pmc/exporter.t (original)
+++ trunk/t/pmc/exporter.t Mon Apr 9 16:01:47 2007
@@ -281,7 +281,7 @@
$P0 = new .Exporter
$P0.'import'()
- say 'ok 1 - import() with no args does nothing'
+ say 'ok 1 - import() with no args throws an exception'
.end
CODE
