Changeset 36630 in project
- Timestamp:
- 09/16/18 16:47:57 (15 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/5/apropos/trunk/symbol-access.scm
r36298 r36630 20 20 (chicken fixnum) 21 21 (chicken type) 22 (only (srfi 13) 23 string-drop string-take string-index)) 22 (only (srfi 13) string-drop string-take string-index)) 24 23 25 24 ;;; Raw Access Renames 26 25 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)) 29 27 30 (define (global-symbol-ref sym) 31 (##sys#slot sym 0) ) 28 (define (global-symbol-ref sym) (##sys#slot sym 0)) 32 29 33 30 ;;; Toplevel Symbols … … 42 39 (let* ( 43 40 (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 45 43 (idx (string-index str #\#)) 46 44 (mod (if idx (string-take str idx) *toplevel-module-string*))
Note: See TracChangeset
for help on using the changeset viewer.