Changeset 37045 in project


Ignore:
Timestamp:
01/16/19 15:56:57 (3 months ago)
Author:
kon
Message:

quick "fix" for no more qualified symbols

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

Legend:

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

    r36816 r37045  
    5555    symbol-printname=? symbol-printname<?
    5656    symbol-printname-length max-symbol-printname-length)
    57   (only symbol-qualified-utils qualified-symbol?)
    5857  (only type-checks check-fixnum define-check+error-type)
    5958  (only type-errors define-error-type error-argument-type)
     
    6766(define (any? x)
    6867  #t )
     68
     69(define (qualified-symbol? sym)
     70  #f )
    6971
    7072;;
     
    186188      (if qualified?
    187189        any?
    188         (lambda (x)
    189           (not (qualified-symbol? x))))))
     190        (lambda (x) (not (qualified-symbol? x))))) )
    190191    (search-macro-environment-symbols macenv
    191192      (lambda (sym)
  • release/5/apropos/trunk/apropos.egg

    r36817 r37045  
    44;BUG? (inline-file) w/o any define-inline causes error for non-existent apropos.inline
    55
    6 ((synopsis "Chicken apropos")
    7  (version "3.2.2")
     6((synopsis "CHICKEN apropos")
     7 (version "3.2.3")
    88 (category misc)
    99 (author "[[kon lovett]]")
  • release/5/apropos/trunk/tests/apropos-test.scm

    r36031 r37045  
    6767  '(foobarvar2 foobarvar1 foobarprocx foobarprocn foobarproc2 foobarproc1 foobarproc0)
    6868  (apropos-list 'foobar))
     69
    6970(apropos-list-test
    7071  '(foobarvar2 foobarvar1 foobarprocx foobarprocn foobarproc2 foobarproc1 foobarproc0)
    7172  (apropos-list "foobar"))
     73
     74#;
    7275(apropos-list-test
    7376  '(##bar#foo1 ##bar#foo2 foobarmacro1 foobarmacro2 foobarproc0 foobarproc1 foobarproc2 foobarprocn foobarprocx foobarvar1 foobarvar2)
    7477  (apropos-list 'foo #:macros? #t #:qualified? #t))
     78
    7579(apropos-list-test
    7680  '(foobarvar2 foobarvar1 foobarprocx foobarprocn foobarproc2 foobarproc1 foobarproc0 foobarmacro1 foobarmacro2)
    7781  (apropos-list 'foobar #:macros? #t))
     82
    7883(apropos-list-test
    7984  '(foobarvar2 foobarvar1 foobarprocx foobarprocn foobarproc2 foobarproc1 foobarproc0 Foobarvar2 Foobarvar1)
    8085  (apropos-list 'foobar #:case-insensitive? #t))
     86
    8187(apropos-list-test
    8288  '(foobarvar2 foobarvar1 Foobarvar1 Foobarvar2)
Note: See TracChangeset for help on using the changeset viewer.