@@ -380,7 +380,7 @@ nativeint ozVSLengthForBufferNoRaise(VM vm, RichNode vs) {
380
380
} else if (matchesCons (vm, vs, wildcard (), wildcard ())) {
381
381
nativeint result = 0 ;
382
382
bool ok = ozListForEachNoRaise (vm, vs,
383
- [vm, &result] (char32_t c) {
383
+ [&result] (char32_t c) {
384
384
result += (sizeof (char32_t ) / sizeof (char ));
385
385
}
386
386
);
@@ -433,7 +433,7 @@ bool ozVSGetNoRaise(VM vm, RichNode vs, std::vector<char>& output) {
433
433
return true ;
434
434
} else if (matchesCons (vm, vs, wildcard (), wildcard ())) {
435
435
return ozListForEachNoRaise (vm, vs,
436
- [vm, &output] (char32_t c) {
436
+ [&output] (char32_t c) {
437
437
char buffer[4 ];
438
438
nativeint length = toUTF (c, buffer);
439
439
std::copy_n (buffer, length, std::back_inserter (output));
@@ -521,7 +521,7 @@ bool ozVBSGetNoRaise(VM vm, RichNode vbs, std::vector<C>& output) {
521
521
return true ;
522
522
} else if (matchesCons (vm, vbs, wildcard (), wildcard ())) {
523
523
return ozListForEachNoRaise (vm, vbs,
524
- [vm, &output] (unsigned char b) {
524
+ [&output] (unsigned char b) {
525
525
output.push_back (b);
526
526
}
527
527
);
0 commit comments