#1225. Скрипты. Преобразование константного списка в итератор

ARRAY FUNCTION Seq:
  ^ IN aCode
 %SUMMARY 'Преобразует список компилированных слов в итератор вызывающий каждое из этих слов' ;
 aCode CodeIterator .map> DO >>> Result
; // Seq:

И вызов:

: ME_431348CB3E15
 CONST UID '431348CB3E15'
 CONST Name 'ReleasetoK'
 CONST IsSummoned true
 CONST Class class_Class
 : Stereotype st_TestResults ;
 CONST Kind kind_NormalClass
 %SUMMARY 'Стандартный вывод для ГК (релизный вариант)' ;
 CONST Visibility PublicAccess
 CONST Abstraction at_regular
 : Parent ME_06EF1E6353C7 // ReleaseDaily$Test
 ;
 : Inherits
   Seq: ( WL 'ME_4B7AAC7A031D' '4B2A112B011A.pas.ms.script' // TTestResultsPlace
 )
 ; // Inherits
 : Implemented
   Seq: ( ME_4B7AB0B6016E_ME_431348CB3E15 // CommandLineKey
 ME_4B7C0B43005B_ME_431348CB3E15 // TimesPage
 ME_4B7C0B670215_ME_431348CB3E15 // ResultsPage
 )
 ; // Implemented
 : Overridden
   Seq: ( ME_4BEA9969001B_ME_431348CB3E15 // IsGK
 )
 ; // Overridden
 CONST "needs InstanceR" 'undefined'
 CONST "needs script" 'undefined'
 CONST "needs script keywords documentation" 'undefined'
 CONST "no hands" false
 CONST "register in scripts" 'undefined'
 CONST intf.pas:Path 'common\components\DailyTest\ReleasetoK.pas'
 CONST extprop:pas:TypeName 'TReleasetoK'
 CONST extprop:rc:SelfName 'ReleasetoK'
 CONST extprop:rc:isAcceptableForScripts true

ref; // ME_431348CB3E15 ReleasetoK