summaryrefslogtreecommitdiff
path: root/scheme/chicken/geiser
diff options
context:
space:
mode:
Diffstat (limited to 'scheme/chicken/geiser')
-rw-r--r--scheme/chicken/geiser/emacs.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/scheme/chicken/geiser/emacs.scm b/scheme/chicken/geiser/emacs.scm
index e4e84c0..cddf8da 100644
--- a/scheme/chicken/geiser/emacs.scm
+++ b/scheme/chicken/geiser/emacs.scm
@@ -229,7 +229,7 @@
(string-append "^([^#]+#)*" (regexp-escape prefix)))
(define (describe-symbol sym #!key (exact? #f))
- (let* ((str (symbol->string sym))
+ (let* ((str (->string sym))
(found (apropos-information-list (regexp (make-apropos-regex str)) #:macros? #t)))
(delete-duplicates
(if exact?
@@ -259,11 +259,11 @@
(set! result
(cond
((list? result)
- (map (lambda (v) (with-output-to-string (lambda () (write v)))) result))
+ (map (lambda (v) (with-output-to-string (lambda () (pretty-print v)))) result))
((eq? result (if #f #t))
(list output))
(else
- (list (with-output-to-string (lambda () (write result)))))))
+ (list (with-output-to-string (lambda () (pretty-print result)))))))
(let ((out-form
`((result ,@result)
@@ -339,7 +339,7 @@
;; Builds a signature list from an identifier
(define (find-signatures toplevel-module sym)
- (define str (symbol->string sym))
+ (define str (->string sym))
(define (make-module-list sym module-sym)
(if (null? module-sym)
@@ -375,7 +375,7 @@
(args (if (or (list? rest) (pair? rest)) (cdr rest) '())))
(define (clean-arg arg)
- (string->symbol (string-substitute "(.*[^0-9]+)[0-9]+" "\\1" (symbol->string arg))))
+ (string->symbol (string-substitute "(.*[^0-9]+)[0-9]+" "\\1" (->string arg))))
(define (collect-args args #!key (reqs? #t) (opts? #f) (keys? #f))
(when (not (null? args))