From 6158160784ded368b98b30358ba73c90d33474b3 Mon Sep 17 00:00:00 2001
From: Joe Marshall <eval.apply@gmail.com>
Date: Mon, 16 Jan 2012 10:29:31 -0800
Subject: [PATCH] Use new subgraph-color slot rather than the node alist.

---
 src/compiler/base/ctypes.scm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/src/compiler/base/ctypes.scm b/src/compiler/base/ctypes.scm
index e00f43150..ea63cabbc 100644
--- 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/)
-- 
2.25.1