refactoring functional objects
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Sat, 21 Oct 2017 14:16:27 +0000 (16:16 +0200)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Sat, 21 Oct 2017 14:16:27 +0000 (16:16 +0200)
modules/oop/pf-objects.scm

index 86ffd20107e4c4beaef07280503457a15d3100a2..cf990afaaede2412858bdf9da902db465611c7c9 100644 (file)
@@ -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))