Changeset 36630 in project


Ignore:
Timestamp:
09/16/18 16:47:57 (2 months ago)
Author:
kon
Message:

comments

File:
1 edited

Legend:

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

    r36298 r36630  
    2020  (chicken fixnum)
    2121  (chicken type)
    22   (only (srfi 13)
    23     string-drop string-take string-index))
     22  (only (srfi 13) string-drop string-take string-index))
    2423
    2524;;; Raw Access Renames
    2625
    27 (define (global-symbol-bound? sym)
    28   (##sys#symbol-has-toplevel-binding? sym) )
     26(define (global-symbol-bound? sym) (##sys#symbol-has-toplevel-binding? sym))
    2927
    30 (define (global-symbol-ref sym)
    31   (##sys#slot sym 0) )
     28(define (global-symbol-ref sym) (##sys#slot sym 0))
    3229
    3330;;; Toplevel Symbols
     
    4239  (let* (
    4340    (str (symbol->string sym))
    44     ;assume # not part of module name
     41    ;assume # not part of module name (-right would mean # not part of symbol)
     42    ;so cannot handle qualified symbols
    4543    (idx (string-index str #\#))
    4644    (mod (if idx (string-take str idx) *toplevel-module-string*))
Note: See TracChangeset for help on using the changeset viewer.