From: Joe Marshall <eval.apply@gmail.com>
Date: Mon, 16 Jan 2012 18:29:31 +0000 (-0800)
Subject: Use new subgraph-color slot rather than the node alist.
X-Git-Tag: release-9.2.0~334^2~22
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6158160784ded368b98b30358ba73c90d33474b3;p=mit-scheme.git

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 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/)