Changeset 36816 in project


Ignore:
Timestamp:
11/11/18 15:37:08 (4 weeks ago)
Author:
kon
Message:

comments

Location:
release/5/apropos/trunk
Files:
2 edited

Legend:

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

    r36298 r36816  
    516516
    517517(define (string->display-symbol str)
    518   ((if (apropos-interning) string->symbol string->uninterned-symbol) str) )
     518  (let (
     519    (str2sym (if (apropos-interning) string->symbol string->uninterned-symbol)) )
     520    (str2sym str) ) )
    519521
    520522;;
     
    779781        (and x KRL-OPTIONS)
    780782        '() ) )
     783    ;FIXME actually check for proper options
    781784    ((list? x)
    782785      x )
  • release/5/apropos/trunk/apropos-csi.scm

    r36640 r36816  
    125125
    126126(define (parse-csi-apropos-arguments iargs)
     127  ;look at every argument
    127128  (let loop ((args iargs) (oargs '()))
    128129    ;
     
    204205    (args (with-input-from-string cmdlin read-list))
    205206    (apropos-args (parse-csi-apropos-arguments args)) )
    206     ;NOTE will not dump the symbol-table unless explicit ; use '(: (* any))
     207    ;NOTE will not dump the symbol-table unless explicit - use '(: (* any))
    207208    (cond
    208209      ((null? apropos-args)
Note: See TracChangeset for help on using the changeset viewer.