impc:ti:gather-all-gvars-helper   scheme

(define impc:ti:gather-all-gvars-helper
  (lambda (gtype)
    (foldl (lambda (lst val)
             (if (list? val)
                 (append (impc:ti:gather-all-gvars-helper val) lst)
                 (if (and (symbol? val)
                          (regex:match? (symbol->string val) "^!"))
                     (cons val lst)
                     lst)))
           '() gtype)))