Update native repr handling to fit latest thinking.

Raku · May 24, 2011 · 2ca4db0 · 2ca4db0
1 parent 3339a14
commit 2ca4db0
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/src/6model/reprs/P6int.c b/src/6model/reprs/P6int.c
@@ -36,8 +36,8 @@ static PMC * instance_of(PARROT_INTERP, PMC *self, PMC *WHAT) {
 /* Checks if a given object is defined (from the point of view of the
  * representation). */
 static INTVAL defined(PARROT_INTERP, PMC *self, PMC *obj) {
-    /* Native types cannot be undefined. */
-    return 1;
+    /* Native types only ever exist as the type object, which is undefined. */
+    return 0;
 }
 
 /* Helper to die because this type doesn't support attributes. */

diff --git a/src/6model/reprs/P6num.c b/src/6model/reprs/P6num.c
@@ -36,8 +36,8 @@ static PMC * instance_of(PARROT_INTERP, PMC *self, PMC *WHAT) {
 /* Checks if a given object is defined (from the point of view of the
  * representation). */
 static INTVAL defined(PARROT_INTERP, PMC *self, PMC *obj) {
-    /* Native types cannot be undefined. */
-    return 1;
+    /* Native types only ever exist as the type object, which is undefined. */
+    return 0;
 }
 
 /* Helper to die because this type doesn't support attributes. */

diff --git a/src/6model/reprs/P6str.c b/src/6model/reprs/P6str.c
@@ -36,8 +36,8 @@ static PMC * instance_of(PARROT_INTERP, PMC *self, PMC *WHAT) {
 /* Checks if a given object is defined (from the point of view of the
  * representation). */
 static INTVAL defined(PARROT_INTERP, PMC *self, PMC *obj) {
-    /* Native types cannot be undefined. */
-    return 1;
+    /* Native types only ever exist as the type object, which is undefined. */
+    return 0;
 }
 
 /* Helper to die because this type doesn't support attributes. */