Changeset 34717 in project


Ignore:
Timestamp:
10/16/17 16:59:10 (23 months ago)
Author:
Kon Lovett
Message:

fix only number REPL bug

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/apropos/trunk/apropos.scm

    r34401 r34717  
    302302
    303303(define (parse-arguments loc patt args)
     304  ;
    304305  ; => (values env macenv qualified?)
    305306  (define (parse-rest-arguments)
     
    337338                (error-argument loc arg) ) ) ) ) ) ) )
    338339  ;
    339   (check-search-pattern loc patt 'pattern)
    340   (receive (env macenv qualified? case-insensitive?) (parse-rest-arguments)
    341     (values
    342       (*apropos-list loc
    343         (make-apropos-matcher loc patt case-insensitive?) env macenv qualified?)
    344       macenv) ) )
     340  (let ((patt (if (number? patt) (number->string patt) patt)))
     341    (check-search-pattern loc patt 'pattern)
     342    (receive (env macenv qualified? case-insensitive?) (parse-rest-arguments)
     343      (values
     344        (*apropos-list loc
     345          (make-apropos-matcher loc patt case-insensitive?) env macenv qualified?)
     346        macenv) ) ) )
    345347
    346348#| ;UNSUPPORTED ;FIXME case-insensitive support
Note: See TracChangeset for help on using the changeset viewer.