Ignore:
Timestamp:
08/13/18 05:56:48 (20 months ago)
Author:
Kon Lovett
Message:

better symbol-table-access api

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/apropos/trunk/apropos-api.scm

    r36241 r36254  
    214214;
    215215(define (search-interaction-environment-symbols env optarg?)
    216   (let loop ((cursor (initial-symbol-table-cursor)) (syms '()))
    217     (let ((sym (root-symbol cursor)))
     216  (let loop ((cursor (cursor-first)) (syms '()))
     217    (let ((sym (cursor-current cursor)))
    218218      (if (not sym)
    219219        syms
    220220        (let ((syms (if (optarg? sym) (cons sym syms) syms)))
    221           (loop (next-root-symbol cursor) syms) ) ) ) ) )
     221          (loop (cursor-next cursor) syms) ) ) ) ) )
    222222
    223223(: search-list-environment-symbols (list procedure --> list))
Note: See TracChangeset for help on using the changeset viewer.