Changeset 22335 for v6

Timestamp:

09/24/08 13:50:47 (2 months ago)

Author:

pmurias

Message:

[pugs] pugs -Bm0ld creates a simple mold frame

Location:

v6/smop

Files:

• src/smop_s1p_root_namespace.c (modified) (2 diffs)
• test/23_mold.sm0p (modified) (1 diff)

v6/smop/src/smop_s1p_root_namespace.c

@@ -10 +10 @@
 
 void smop_s1p_root_namespace_insert(SMOP__Object* interpreter,char* name,SMOP__Object* obj) {
-
   SMOP__Object* cell = SMOP_DISPATCH(interpreter,
                                      SMOP_RI(SMOP__S1P__RootNamespace),
                                      SMOP__ID__postcircumfix_curly,
                                      SMOP__NATIVE__capture_create(interpreter,
-                                                                  SMOP__S1P__RootNamespace,
-                                                                  (SMOP__Object*[]) {SMOP__S1P__Str_create(name),NULL},
+                                                                  SMOP_REFERENCE(interpreter,SMOP__S1P__RootNamespace),
+                                                                  (SMOP__Object*[]) {SMOP__NATIVE__idconst_create(name),NULL},
                                                                   NULL));
 
@@ -31 +30 @@
   smop_s1p_root_namespace_insert(SMOP__GlobalInterpreter,"::Code", SMOP__S1P__Code);
   smop_s1p_root_namespace_insert(SMOP__GlobalInterpreter,"::Scalar", SMOP__S1P__Scalar);
+  smop_s1p_root_namespace_insert(SMOP__GlobalInterpreter,"::MoldFrame", SMOP__Mold__Frame);
 }
 

v6/smop/test/23_mold.sm0p

@@ -39 +39 @@
      NULL, NULL));
 
-  SMOP_DISPATCH(interpreter, SMOP_RI(interpreter),
+  /*SMOP_DISPATCH(interpreter, SMOP_RI(interpreter),
    SMOP__ID__loop, SMOP__NATIVE__capture_create(interpreter,
      SMOP_REFERENCE(interpreter,interpreter),
-     NULL, NULL));
+     NULL, NULL));*/