Changeset 12867 in project for chicken


Ignore:
Timestamp:
12/22/08 09:20:34 (11 years ago)
Author:
felix winkelmann
Message:

csi toplevel commands resolve identifier names

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/csi.scm

    r12559 r12867  
    5656    ##sys#windows-platform)
    5757  (hide parse-option-string bytevector-data member* canonicalize-args do-trace do-untrace
    58         traced-procedures describer-table dirseparator?
     58        traced-procedures describer-table dirseparator? resolve-var
    5959        findall trace-indent command-table do-break do-unbreak broken-procedures) )
    6060
     
    298298                             (history-add rs)
    299299                             (apply values rs) ) ) )
    300                         ((tr) (do-trace (map string->symbol (string-split (read-line)))))
    301                         ((utr) (do-untrace (map string->symbol (string-split (read-line)))))
    302                         ((br) (do-break (map string->symbol (string-split (read-line)))))
    303                         ((ubr) (do-unbreak (map string->symbol (string-split (read-line)))))
     300                        ((tr) (do-trace (map resolve-var (string-split (read-line)))))
     301                        ((utr) (do-untrace (map resolve-var (string-split (read-line)))))
     302                        ((br) (do-break (map resolve-var (string-split (read-line)))))
     303                        ((ubr) (do-unbreak (map resolve-var (string-split (read-line)))))
    304304                        ((uba) (do-unbreak-all))
    305305                        ((breakall)
     
    373373               (history-add rs)
    374374               (apply values rs) ) ) ) ) ) )
     375
     376(define (resolve-var str)
     377  (##sys#strip-syntax (string->symbol str) (##sys#current-environment) #t))
    375378
    376379
Note: See TracChangeset for help on using the changeset viewer.