Changeset 37882 in project


Ignore:
Timestamp:
09/07/19 14:18:48 (2 weeks ago)
Author:
Kon Lovett
Message:

breaks from the left

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

Legend:

Unmodified
Added
Removed
  • release/5/apropos/trunk/apropos.egg

    r37878 r37882  
    55
    66((synopsis "CHICKEN apropos")
    7  (version "3.3.4")
     7 (version "3.3.5")
    88 (category misc)
    99 (author "[[kon lovett]]")
  • release/5/apropos/trunk/symbol-access.scm

    r37880 r37882  
    99
    1010(;export
    11   ;
    12   *ignore-namespace*
    1311  ;
    1412  *toplevel-module-symbol*
     
    2624  (chicken fixnum)
    2725  (chicken type)
    28   (only (srfi 13) string-skip string-drop string-take string-index-right))
    29 
    30 ;;;
    31 
    32 (define *ignore-namespace* #f)
     26  (only (srfi 13) string-skip string-drop string-take string-index))
    3327
    3428;;
    3529
     30;FIXME need to recognize '##' special for 'exclude' list
     31
    3632(define-inline (namespace-tag-length str)
    3733  (cond
    38     ((and *ignore-namespace* (string-skip str #\#))
     34    ((string-skip str #\#)
    3935      => identity)
    4036    (else
    41       0)) )
     37      0) ) )
    4238
    4339(define (global-symbol-name-start str)
    44   (string-index-right str #\# (namespace-tag-length str)) )
     40  (string-index str #\# (namespace-tag-length str)) )
    4541
    4642;;;
Note: See TracChangeset for help on using the changeset viewer.