Changeset 37881 in project


Ignore:
Timestamp:
09/07/19 05:52:58 (2 weeks ago)
Author:
Kon Lovett
Message:

add error case

File:
1 edited

Legend:

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

    r37878 r37881  
    244244            (and
    245245              (or internal? (not (internal-module-name? mod)))
    246               (string-match? nam irx) ) ) ) ) ) )
     246              (string-match? nam irx) ) ) ) )
     247        (else
     248          (error loc "unknown irregex split" split patt) ) ) )
    247249  ;
    248250  (define (gen-string-matcher str)
     
    269271              (and
    270272                (or internal? (not (internal-module-name? mod)))
    271                 (matcher nam str) ) ) ) ) ) ) )
     273                (matcher nam str) ) ) ) )
     274        (else
     275          (error loc "unknown string split" patt) ) ) ) )
    272276  ;
    273277  (cond
Note: See TracChangeset for help on using the changeset viewer.