From: Guillermo J. Rozas Date: Sat, 21 Nov 1987 18:06:02 +0000 (+0000) Subject: Use number->string directly rather than write-to-string. X-Git-Tag: 20090517-FFI~13050 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e9c4e54b8a14aef1fb3908a09df63122326528b4;p=mit-scheme.git Use number->string directly rather than write-to-string. --- diff --git a/v7/src/runtime/gensym.scm b/v7/src/runtime/gensym.scm index a4ca4f2d6..7bcfeae35 100644 --- a/v7/src/runtime/gensym.scm +++ b/v7/src/runtime/gensym.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/gensym.scm,v 13.41 1987/01/23 00:13:48 jinx Rel $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/gensym.scm,v 13.42 1987/11/21 18:06:02 jinx Rel $ ;;; ;;; Copyright (c) 1987 Massachusetts Institute of Technology ;;; @@ -46,7 +46,7 @@ (named-lambda (name-generator) (string->uninterned-symbol (string-append prefix - (write-to-string + (number->string (let ((n counter)) (set! counter (1+ counter)) n))))))) @@ -68,4 +68,4 @@ (error "Bad argument: GENERATE-UNINTERNED-SYMBOL" argument)))) (string->uninterned-symbol - (string-append name-prefix (write-to-string (get-number))))))) + (string-append name-prefix (number->string (get-number)))))))