Changeset 37049 in project


Ignore:
Timestamp:
01/16/19 21:13:44 (5 weeks ago)
Author:
kon
Message:

rm qualified refs

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

Legend:

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

    r37045 r37049  
    411411              (loop (cddr args)) )
    412412            ;
    413             ((eq? #:qualified? arg)
    414               (set! qualified? (cadr args))
    415               (loop (cddr args)) )
    416             ;
    417413            ((eq? #:case-insensitive? arg)
    418414              (set! case-insensitive? (cadr args))
     
    774770
    775771(define-constant KRL-OPTIONS '(
    776   #:sort #:module #:case-insensitive? #t #:qualified? #t #:macros? #t))
     772  #:sort #:module #:case-insensitive? #t #:macros? #t))
    777773
    778774(define apropos-default-options (make-parameter '() (lambda (x)
  • release/5/apropos/trunk/apropos-csi.scm

    r36816 r37049  
    5656  (csi-help
    5757    ",a PATT ARG..."
    58     "Apropos of PATT with ARG from ?, mac, qual, ci, sort nam|mod|typ|#f, split nam|mod|#f"))
     58    "Apropos of PATT with ARG from ?, mac, ci, sort nam|mod|typ|#f, split nam|mod|#f"))
    5959
    6060(define-constant HELP-TEXT
     
    8181
    8282 macros            Include macro bound symbols
    83  qualified         Include "qualified" symbols
    8483 ci | case-insensitive
    8584                   Pattern has no capitals
     
    8988                   Pattern match component; optional when last argument
    9089                   (also see the '(_ . _) pattern)
    91  all               Means `ci qual mac`
     90 all               Means `ci mac`
    9291 krl               Means `all sort mod`
    9392 base              For number valued pattern
     
    170169            (loop
    171170              (restargs (cdr args) #f)
    172               (cons* #t #:case-insensitive? #t #:qualified? #t #:macros? oargs)) )
     171              (cons* #t #:case-insensitive? #t #:macros? oargs)) )
    173172          ;
    174173          ((mac macros)
    175174            (arg-next #:macros? #t) )
    176           ;
    177           ((qual qualified)
    178             (arg-next #:qualified? #t) )
    179175          ;
    180176          ((ci case-insensitive)
  • release/5/apropos/trunk/apropos.egg

    r37046 r37049  
    55
    66((synopsis "CHICKEN apropos")
    7  (version "3.2.2")
     7 (version "3.2.3")
    88 (category misc)
    99 (author "[[kon lovett]]")
     
    1313  (srfi-13 "0.1")
    1414        (check-errors "3.1.0")
    15         (string-utils "2.0.4")
    16         (symbol-utils "1.1.0"))
     15        (string-utils "2.1.0")
     16        (symbol-utils "2.0.1"))
    1717 (test-dependencies test)
    1818 (components
  • release/5/apropos/trunk/tests/apropos-test.scm

    r37045 r37049  
    7575(apropos-list-test
    7676  '(##bar#foo1 ##bar#foo2 foobarmacro1 foobarmacro2 foobarproc0 foobarproc1 foobarproc2 foobarprocn foobarprocx foobarvar1 foobarvar2)
    77   (apropos-list 'foo #:macros? #t #:qualified? #t))
     77  (apropos-list 'foo #:macros? #t))
    7878
    7979(apropos-list-test
     
    132132        ((|| . foobarvar1) . variable)
    133133        ((|| . foobarvar2) . variable) )
    134       (apropos-information-list 'foobar #:macros? #t #:qualified? #t))
     134      (apropos-information-list 'foobar #:macros? #t))
    135135    (test "apropos-information-list"
    136136      '(((|| . foobarproc0) procedure)
     
    139139        ((|| . foobarprocn) procedure a b . r)
    140140        ((|| . foobarprocx) procedure a b c))
    141       (apropos-information-list 'foobarproc #:macros? #t #:qualified? #t #:sort #:module)) ) )
     141      (apropos-information-list 'foobarproc #:macros? #t #:sort #:module)) ) )
    142142
    143143#| ;UNSUPPORTED
     
    158158
    159159(test '(foobarprocx foobarvar2 foobarvar1 ##bar#foo1)
    160       (apropos-list 'foo tstenv1 #:qualified? #t))
     160      (apropos-list 'foo tstenv1))
    161161|#
    162162
Note: See TracChangeset for help on using the changeset viewer.