Changeset 35128 in project


Ignore:
Timestamp:
02/16/18 21:28:07 (10 months ago)
Author:
kon
Message:

relax , use predicate type

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/symbol-utils/trunk/symbol-utils.scm

    r35125 r35128  
    211211    (make-qualified-string 'make-qualified-symbol prefix name)) )
    212212
    213 (: qualified-symbol? (symbol --> boolean))
     213(: qualified-symbol? (* -> boolean : symbol))
    214214(define (qualified-symbol? sym)
    215   (->boolean
    216     (##sys#qualified-symbol-prefix (check-symbol 'qualified-symbol? sym))) )
     215  (and
     216    (symbol? sym)
     217    (->boolean (##sys#qualified-symbol-prefix sym))) )
    217218
    218219(: symbol->qualified-string (symbol --> string))
Note: See TracChangeset for help on using the changeset viewer.