Changeset 37045 in project
- Timestamp:
- 01/16/19 15:56:57 (5 weeks ago)
- Location:
- release/5/apropos/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/5/apropos/trunk/apropos-api.scm
r36816 r37045 55 55 symbol-printname=? symbol-printname<? 56 56 symbol-printname-length max-symbol-printname-length) 57 (only symbol-qualified-utils qualified-symbol?)58 57 (only type-checks check-fixnum define-check+error-type) 59 58 (only type-errors define-error-type error-argument-type) … … 67 66 (define (any? x) 68 67 #t ) 68 69 (define (qualified-symbol? sym) 70 #f ) 69 71 70 72 ;; … … 186 188 (if qualified? 187 189 any? 188 (lambda (x) 189 (not (qualified-symbol? x)))))) 190 (lambda (x) (not (qualified-symbol? x))))) ) 190 191 (search-macro-environment-symbols macenv 191 192 (lambda (sym) -
release/5/apropos/trunk/apropos.egg
r36817 r37045 4 4 ;BUG? (inline-file) w/o any define-inline causes error for non-existent apropos.inline 5 5 6 ((synopsis "C hickenapropos")7 (version "3.2. 2")6 ((synopsis "CHICKEN apropos") 7 (version "3.2.3") 8 8 (category misc) 9 9 (author "[[kon lovett]]") -
release/5/apropos/trunk/tests/apropos-test.scm
r36031 r37045 67 67 '(foobarvar2 foobarvar1 foobarprocx foobarprocn foobarproc2 foobarproc1 foobarproc0) 68 68 (apropos-list 'foobar)) 69 69 70 (apropos-list-test 70 71 '(foobarvar2 foobarvar1 foobarprocx foobarprocn foobarproc2 foobarproc1 foobarproc0) 71 72 (apropos-list "foobar")) 73 74 #; 72 75 (apropos-list-test 73 76 '(##bar#foo1 ##bar#foo2 foobarmacro1 foobarmacro2 foobarproc0 foobarproc1 foobarproc2 foobarprocn foobarprocx foobarvar1 foobarvar2) 74 77 (apropos-list 'foo #:macros? #t #:qualified? #t)) 78 75 79 (apropos-list-test 76 80 '(foobarvar2 foobarvar1 foobarprocx foobarprocn foobarproc2 foobarproc1 foobarproc0 foobarmacro1 foobarmacro2) 77 81 (apropos-list 'foobar #:macros? #t)) 82 78 83 (apropos-list-test 79 84 '(foobarvar2 foobarvar1 foobarprocx foobarprocn foobarproc2 foobarproc1 foobarproc0 Foobarvar2 Foobarvar1) 80 85 (apropos-list 'foobar #:case-insensitive? #t)) 86 81 87 (apropos-list-test 82 88 '(foobarvar2 foobarvar1 Foobarvar1 Foobarvar2)
Note: See TracChangeset
for help on using the changeset viewer.