Arc Forumnew | comments | leaders | submitlogin
9 points by sacado 6157 days ago | link | parent

add this to ac.scm :

  (xdef 'all-symbols
      (lambda ()
        (let ((result '()))
          (for-each (lambda (sym)
                      (let ((s-sym (symbol->string sym)))
                        (if (eqv? #\_ (string-ref s-sym 0))
                            (set! result (cons (string->symbol (substring s-sym 1)) result)))))
                    (namespace-mapped-symbols))
          result)))
After that, in arc, the call (all-symbols) returns you the list of all global symbols. Then it should be easy to get what you want...


3 points by sacado 6157 days ago | link

(listtab:map [list _ eval._] (all-symbols)) then gives you the above as a table.

-----