From eceee4efe35fc2c128faf362c71a617585124324 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sun, 1 May 2011 21:01:29 +0200
Subject: [PATCH] boot-9 fixme note

* module/ice-9/boot-9.scm (module-replace!): Add a fixme about using
  something other than object properties here.
---
 module/ice-9/boot-9.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 401d90476..294b91515 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -3048,6 +3048,8 @@ module '(ice-9 q) '(make-q q-length))}."
                 (let* ((internal-name (if (pair? name) (car name) name))
                        (external-name (if (pair? name) (cdr name) name))
                        (var (module-ensure-local-variable! m internal-name)))
+                  ;; FIXME: use a bit on variables instead of object
+                  ;; properties.
                   (set-object-property! var 'replace #t)
                   (module-add! public-i external-name var)))
               names)))