(<ifield> pretty-print): Fix typo.

diff --git a/cgen/ifield.scm b/cgen/ifield.scm
index 76215eb..cac0415 100644 (file)
--- a/cgen/ifield.scm
+++ b/cgen/ifield.scm
@@ -400,8 +400,8 @@
  <ifield> 'pretty-print
  (lambda (self)
    (string-append "(" (obj:str-name self)
-                 " " (number->string (ifld-start f))
-                 " " (number->string (ifld-length f))
+                 " " (number->string (ifld-start self))
+                 " " (number->string (ifld-length self))
                  ")"))
 )