diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2011-08-24 03:35:02 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2011-08-24 03:35:02 +0200 |
| commit | 55efcccbde8a1ebbf30471b90c17744119979748 (patch) | |
| tree | 9f3d425b47dfdd05d389918589c6646f9257fa84 | |
| parent | 420a8c4d96ff19786e4a16a34fcd6b5a98da500b (diff) | |
| download | geiser-guile-55efcccbde8a1ebbf30471b90c17744119979748.tar.gz geiser-guile-55efcccbde8a1ebbf30471b90c17744119979748.tar.bz2 | |
Guile: deprecated format usage eliminated
Actually, i'm not even sure the calls to format i was using were
correct at all!
| -rw-r--r-- | geiser/modules.scm | 5 | ||||
| -rw-r--r-- | geiser/utils.scm | 6 |
2 files changed, 4 insertions, 7 deletions
diff --git a/geiser/modules.scm b/geiser/modules.scm index df53acb..780d39e 100644 --- a/geiser/modules.scm +++ b/geiser/modules.scm @@ -1,6 +1,6 @@ ;;; modules.scm -- module metadata -;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010, 2011 Jose Antonio Ortega Ruiz ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the Modified BSD License. You should @@ -64,7 +64,7 @@ (define (all-modules) (define (maybe-name m) - (and (module-kind m) (format "~A" (module-name m)))) + (and (module-kind m) (format #f "~A" (module-name m)))) (let* ((guile (resolve-module '(guile))) (roots (remove (lambda (m) (eq? m guile)) (root-modules))) (children (append-map all-child-modules roots))) @@ -75,4 +75,3 @@ (fold (lambda (m all) (append (all-child-modules m all) all)) (list mod) cs))) - diff --git a/geiser/utils.scm b/geiser/utils.scm index 654cae8..92ed7ae 100644 --- a/geiser/utils.scm +++ b/geiser/utils.scm @@ -1,6 +1,6 @@ ;;; utils.scm -- utility functions -;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010, 2011 Jose Antonio Ortega Ruiz ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the Modified BSD License. You should @@ -46,9 +46,7 @@ (sort! syms cmp)))) (define (gensym? sym) - (and (symbol? sym) (gensym-name? (format "~A" sym)))) + (and (symbol? sym) (gensym-name? (format #f "~A" sym)))) (define (gensym-name? name) (and (string-match "^#[{]" name) #t)) - -;;; utils.scm ends here |