Changeset 37880 in project


Ignore:
Timestamp:
09/07/19 05:30:59 (10 days ago)
Author:
Kon Lovett
Message:

namespaces (du, duh), names are doc

Location:
release/5/apropos/trunk
Files:
2 edited

Legend:

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

    r37878 r37880  
    99
    1010(;export
     11  ;
     12  *ignore-namespace*
    1113  ;
    1214  *toplevel-module-symbol*
     
    2830;;;
    2931
     32(define *ignore-namespace* #f)
     33
    3034;;
    3135
    3236(define-inline (namespace-tag-length str)
    3337  (cond
    34     ((string-skip str #\#) => identity)
    35     (else                     0)) )
     38    ((and *ignore-namespace* (string-skip str #\#))
     39      => identity)
     40    (else
     41      0)) )
    3642
    3743(define (global-symbol-name-start str)
  • release/5/apropos/trunk/symbol-environment-access.scm

    r36820 r37880  
    5757;
    5858(define (search-list-environment-symbols env test?)
    59   (foldl (lambda (syms cell) (cons-if test? (car cell) syms)) '() env) )
     59  (define (cons-if-symbol syms cell) (cons-if test? (car cell) syms))
     60  (foldl cons-if-symbol '() env) )
    6061
    6162(: search-interaction-environment-symbols (* procedure --> list))
Note: See TracChangeset for help on using the changeset viewer.