[nongnu] elpa/geiser-guile 55efccc 226/284: Guile: deprecated format usage eliminated

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 55efcccbde8a1ebbf30471b90c17744119979748
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Guile: deprecated format usage eliminated
    
    Actually, i'm not even sure the calls to format i was using were
    correct at all!
---
 geiser/modules.scm | 5 ++---
 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