debug_compile( 0, "set module" );
debug_compile( 0, "set module", frame);
compile_set_module(    PARSE   *parse,    FRAME *frame ){    LIST    *nt = (*parse->left->func)( parse->left, frame );    LIST    *ns = (*parse->right->func)( parse->right, frame );    LIST    *l;    if( DEBUG_COMPILE )    {        debug_compile( 0, "set module" );        printf( "(%s)", frame->module->name );        list_print( nt );        printf( " = " );        list_print( ns );        printf( "\n" );    }    /* Call var_set to set variable */    /* var_set keeps ns, so need to copy it */    for( l = nt; l; l = list_next( l ) )    {        bind_module_var( frame->module, l->string );        var_set( l->string, list_copy( L0, ns ), VAR_SET );    }    list_free( nt );    return ns;}