diff options
Diffstat (limited to 'modules/oop')
-rw-r--r-- | modules/oop/pf-objects.scm | 16 |
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) |