From 6158160784ded368b98b30358ba73c90d33474b3 Mon Sep 17 00:00:00 2001 From: Joe Marshall 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