From 9275e88eff15fb39a91c1b4f9c03ff40537cf070 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 21 Jun 2012 00:00:51 -0700
Subject: [PATCH] issue #358: code-blocks -> get-code-blocks

---
 basis/tools/memory/memory.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/tools/memory/memory.factor b/basis/tools/memory/memory.factor
index dbeb464934..bb612d046f 100644
--- a/basis/tools/memory/memory.factor
+++ b/basis/tools/memory/memory.factor
@@ -247,12 +247,12 @@ M: code-blocks nth-unsafe
 
 INSTANCE: code-blocks immutable-sequence
 
-: code-blocks ( -- blocks )
+: get-code-blocks ( -- blocks )
     (code-blocks) <code-blocks> ;
 
 : with-code-blocks ( quot -- )
     [
-        code-blocks
+        get-code-blocks
         [ \ code-blocks set ]
         [ first entry-point>> code-heap-start set ]
         [ last [ entry-point>> ] [ size>> ] bi + code-heap-end set ] tri
@@ -294,7 +294,7 @@ PRIVATE>
 : code-room. ( -- )
     "== Code heap ==" print nl
     code-room mark-sweep-table. nl
-    code-blocks code-block-stats code-block-table. ;
+    get-code-blocks code-block-stats code-block-table. ;
 
 : room. ( -- )
     data-room. nl code-room. ;