remove definition of number->string

2014-04-03 02:16:29 +09:00 · 2014-04-03 02:16:29 +09:00 · 85db821ad2
parent ce3a0225e2
commit 85db821ad2
1 changed files with 0 additions and 9 deletions
--- a/piclib/syntax-rules.scm
+++ b/piclib/syntax-rules.scm
@ -12,15 +12,6 @@
 	(loop (cons (car d) a) (cdr d))
 	(cons d a))))

-(define (number->string n)
-  ;; fixme
-  (case n
-    ((0) "0")
-    ((1) "1")
-    ((2) "2")
-    ((3) "3")
-    (else "hogee")))
-
 (define (var->sym v)
  (let loop ((cnt 0)
 	     (v v))