Author: yamakenz
Date: Mon Apr 28 23:10:49 2008
New Revision: 5473
Modified:
trunk/scm/util.scm
Log:
* scm/util.scm
- (number->symbol): Fix undefined procedure error by move to
after 'compose' definition
Modified: trunk/scm/util.scm
==============================================================================
--- trunk/scm/util.scm (original)
+++ trunk/scm/util.scm Mon Apr 28 23:10:49 2008
@@ -64,10 +64,6 @@
(write s p)
(get-output-string p))))
-;; TODO: write test
-(define number->symbol
- (compose string->symbol number->string))
-
;; procedural 'or' for use with 'apply'
;; e.g. (apply proc-or boolean-lst)
;; should be deprecated and replaced with a proper, Schemer's way
@@ -202,6 +198,10 @@
(define dec
(lambda (n)
(- n 1)))
+
+;; TODO: write test
+(define number->symbol
+ (compose string->symbol number->string))
;;
;; uim-specific utilities
