Changeset 13726 in project


Ignore:
Timestamp:
03/13/09 01:08:52 (11 years ago)
Author:
Kon Lovett
Message:

Bug fix for procedure-information is-a symbol. Chgd 'identifier back to 'variable.

File:
1 edited

Legend:

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

    r13724 r13726  
    224224(define (apropos-procedure-information proc)
    225225  (let ((info (procedure-information proc)))
    226     (if (not info) 'procedure
    227         `(procedure . ,(cdr info)) ) ) )
     226    (cond ((not info) 'procedure)
     227          ((pair? info) `(procedure . ,(cdr info)))
     228          (else `(procedure . ,info)) ) ) )
    228229
    229230(define (apropos-information sym macenv)
     
    233234          (let ((binding (global-ref sym)))
    234235            (if (procedure? binding) (apropos-procedure-information binding)
    235                 'identifier ) ) ) ) )
     236                'variable ) ) ) ) )
    236237
    237238(define (display-spaces cnt)
Note: See TracChangeset for help on using the changeset viewer.