[Chicken-users] enumerating symbols

[felix]

Here is a simple procedure that returns all interned symbols:

(define oblist
  (let ([find-symbol-table (foreign-lambda c-pointer "C_find_symbol_table" 
c-string)]
        [enum-symbols! (foreign-lambda scheme-object "C_enumerate_symbols" 
c-pointer scheme-object)] )
    (lambda ()
      (let ([it (cons -1 '())]
            [ns (find-symbol-table ".")] )
        (let loop ([lst '()])
          (let ([s (enum-symbols! ns it)])
            (if s
                (loop (cons s lst))
                lst) ) ) ) ) ) )

(tested with Chicken 1.40)


cheers,
felix