Changeset 36630 in project

Timestamp:

09/16/18 16:47:57 (2 months ago)

Author:

kon

Message:

comments

File:

• release/5/apropos/trunk/symbol-access.scm (modified) (2 diffs)

release/5/apropos/trunk/symbol-access.scm

@@ -20 +20 @@
   (chicken fixnum)
   (chicken type)
-  (only (srfi 13)
-    string-drop string-take string-index))
+  (only (srfi 13) string-drop string-take string-index))
 
 ;;; Raw Access Renames
 
-(define (global-symbol-bound? sym)
-  (##sys#symbol-has-toplevel-binding? sym) )
+(define (global-symbol-bound? sym) (##sys#symbol-has-toplevel-binding? sym))
 
-(define (global-symbol-ref sym)
-  (##sys#slot sym 0) )
+(define (global-symbol-ref sym) (##sys#slot sym 0))
 
 ;;; Toplevel Symbols
@@ -42 +39 @@
   (let* (
     (str (symbol->string sym))
-    ;assume # not part of module name
+    ;assume # not part of module name (-right would mean # not part of symbol)
+    ;so cannot handle qualified symbols
     (idx (string-index str #\#))
     (mod (if idx (string-take str idx) *toplevel-module-string*))