diff options
Diffstat (limited to 'modules/oop/pf-objects.scm')
-rw-r--r-- | modules/oop/pf-objects.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/modules/oop/pf-objects.scm b/modules/oop/pf-objects.scm index 86ffd20..cf990af 100644 --- a/modules/oop/pf-objects.scm +++ b/modules/oop/pf-objects.scm @@ -382,7 +382,7 @@ explicitly tell it to not update etc. ;; make a copy of a pf object (define-syntax-rule (mcopy x) - (let ((r (make-p (pk (ref (pk x) '__goops__))))) + (let ((r (make-p (ref x '__goops__)))) (slot-set! r 'h (slot-ref x 'h)) (slot-set! r 'size (slot-ref x 'size)) (slot-set! r 'n (slot-ref x 'n)) |