Revert "Revert "Revert "alien: better resetting and forgetting."""

This reverts commit a415fa0cf52a2c6dca76f72d907d557183a550b9.

diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor
index 905dfbe0de3cb2d0ca790630f0b5ef6dc542566f..4c919cd525f3f63271b77abfd1ae1d7f0d082d3d 100644 (file)
--- a/basis/alien/c-types/c-types.factor
+++ b/basis/alien/c-types/c-types.factor
@@ -47,9 +47,6 @@ GENERIC: lookup-c-type ( name -- c-type ) foldable
 PREDICATE: c-type-word < word
     "c-type" word-prop >boolean ;
 
-M: c-type-word reset-word
-    [ call-next-method ] [ "c-type" remove-word-prop ] bi ;
-
 TUPLE: pointer { to initial: void read-only } ;
 C: <pointer> pointer
 

diff --git a/basis/alien/enums/enums.factor b/basis/alien/enums/enums.factor
index b797ac8f000e7ce0b1a0e149cb6cf66211783738..7a7bbb0d43996561941c289695b71029937a0669 100644 (file)
--- a/basis/alien/enums/enums.factor
+++ b/basis/alien/enums/enums.factor
@@ -33,11 +33,6 @@ M: enum-c-type c-type-setter
 : define-enum-value ( class value -- )
     enum>number "enum-value" set-word-prop ;
 
-PREDICATE: enum-value < word "enum-value" word-prop >boolean ;
-
-M: enum-value reset-word
-    [ call-next-method ] [ "enum-value" remove-word-prop ] bi ;
-
 <PRIVATE
 
 : define-enum-members ( members -- )
@@ -61,11 +56,8 @@ PRIVATE>
 PREDICATE: enum-c-type-word < c-type-word
     "c-type" word-prop enum-c-type? ;
 
-M: enum-c-type-word subwords
-    lookup-c-type members>> keys ;
-
 : enum>values ( enum -- seq )
-    lookup-c-type members>> values ;
+    "c-type" word-prop members>> values ;
 
 : enum>keys ( enum -- seq )
-    lookup-c-type members>> keys [ name>> ] map ;
+    "c-type" word-prop members>> keys [ name>> ] map ;