object: change to a stateful table

1 files changed, 1 insertions, 1 deletions

diff --git a/read.scm b/read.scm
index 07d708c..75d22e0 100644
--- a/read.scm
+++ b/read.scm
@@ -77,7 +77,7 @@
              (datum-labels '())
              (fold-case? #f)
              (this
-              (object/procedures
+              (object/immutable-attributes
                'process
                (lambda (ch)
                  (this 'update-position! ch)