Skip to content

Commit 88892f7

Browse files
committed
Make CallCapture REPR clonable.
1 parent 65a2aef commit 88892f7

File tree

1 file changed

+9
-0
lines changed

1 file changed

+9
-0
lines changed
Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,18 @@
11
package org.perl6.nqp.sixmodel.reprs;
22

33
import org.perl6.nqp.runtime.CallSiteDescriptor;
4+
import org.perl6.nqp.runtime.ThreadContext;
45
import org.perl6.nqp.sixmodel.SixModelObject;
56

67
public class CallCaptureInstance extends SixModelObject {
78
public CallSiteDescriptor descriptor;
89
public Object[] args;
10+
11+
public SixModelObject clone(ThreadContext tc) {
12+
CallCaptureInstance clone = new CallCaptureInstance();
13+
clone.st = this.st;
14+
clone.descriptor = this.descriptor;
15+
clone.args = this.args.clone();
16+
return clone;
17+
}
918
}

0 commit comments

Comments
 (0)