Use new subgraph-color slot rather than the node alist.

diff --git a/src/compiler/base/ctypes.scm b/src/compiler/base/ctypes.scm
index e00f43150b5df1eeaab0da020a58245209c8d15e..ea63cabbc3805014168a178b0d1f6089aaa051fe 100644 (file)
--- a/src/compiler/base/ctypes.scm
+++ b/src/compiler/base/ctypes.scm
@@ -283,14 +283,9 @@ USA.
 
 ;;; Node Properties
 
-(define-integrable (node/subgraph-color node)
-  (cfg-node-get node node/subgraph-color-tag))
+(define-integrable node/subgraph-color node-subgraph-color)
 
-(define-integrable (set-node/subgraph-color! node color)
-  (cfg-node-put! node node/subgraph-color-tag color))
-
-(define node/subgraph-color-tag
-  "subgraph-color-tag")
+(define-integrable set-node/subgraph-color! set-node-subgraph-color!)
 
 (define-structure (subgraph-color
                   (conc-name subgraph-color/)