big commit

1 files changed, 9 insertions, 7 deletions

diff --git a/modules/oop/pf-objects.scm b/modules/oop/pf-objects.scm
index e50073f..d22a9a0 100644
--- a/modules/oop/pf-objects.scm
+++ b/modules/oop/pf-objects.scm
@@ -608,13 +608,15 @@ explicitly tell it to not update etc.
     (let ()
       (define name
         (make-pf-class name
-                     (let ((s (make-pf)))
-                       (set s 'mname sval) (... ...)
-                       s)
-                     (let ((d (make-pf)))
-                       (set d 'dname dval) (... ...)
-                       d)                 
-                     (parents (... ...))))
+                       (letrec ((mname sval) ...)
+                         (let ((s (make-pf)))
+                           (set s 'mname mname) (... ...)
+                           s))
+                       (letrec ((dname dval) ...)
+                         (let ((d (make-pf)))
+                           (set d 'dname dname) (... ...)
+                           d)                 
+                         (parents (... ...)))))
       name)))
 
 (mk-p/f make-pf mk-pf-class  make-pf-class)