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 | d708438236cac2ee3c0a63f06eded5d9a6f38a9f (patch) | |
| tree | d864e523596c824a8a474490f64d1651cada8080 /scheme/guile/geiser/utils.scm | |
| parent | 7209628e61a2468aac259b3a53f7716a844b48dc (diff) | |
| download | geiser-chez-d708438236cac2ee3c0a63f06eded5d9a6f38a9f.tar.gz geiser-chez-d708438236cac2ee3c0a63f06eded5d9a6f38a9f.tar.bz2 | |
Guile: deprecated format usage eliminated
Actually, i'm not even sure the calls to format i was using were
correct at all!
Diffstat (limited to 'scheme/guile/geiser/utils.scm')
| -rw-r--r-- | scheme/guile/geiser/utils.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/scheme/guile/geiser/utils.scm b/scheme/guile/geiser/utils.scm index 654cae8..92ed7ae 100644 --- a/scheme/guile/geiser/utils.scm +++ b/scheme/guile/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 |