Changeset 21972

Timestamp:

08/20/08 20:54:18 (3 months ago)

Author:

ruoso

Message:

[smop] default block signature is set when no signature is sent on code creation

Location:

v6/smop

Files:

• src/smop_s1p_code.sm0p (modified) (1 diff)
• test/21_code.m0ld (modified) (1 diff)

v6/smop/src/smop_s1p_code.sm0p

@@ -48 +48 @@
     code->outer = SMOP__NATIVE__capture_named(interpreter,SMOP_REFERENCE(interpreter,capture),SMOP__ID__outer);
     code->signature = SMOP__NATIVE__capture_named(interpreter,SMOP_REFERENCE(interpreter,capture),SMOP__ID__signature);
+    if (!code->signature)
+      code->signature = SMOP__S1P__DefaultBlockSignature;
 
   } else if (SMOP__ID__postcircumfix_parens == identifier) {

v6/smop/test/21_code.m0ld

@@ -13 +13 @@
 $void = $it_var_cont."STORE"("ok 3\n");
 
-my $code1 = $Code."new"(:"outer"($lexicalscope),:"signature"(¢SMOP__S1P__DefaultBlockSignature),:"mold"(mold {
+my $code1 = $Code."new"(:"outer"($lexicalscope),:"mold"(mold {
     my $interpreter;
     my $lexical;