From 85db821ad28bb62a29db17cf9f60148ca7a84ede Mon Sep 17 00:00:00 2001 From: Yuito Murase Date: Thu, 3 Apr 2014 02:16:29 +0900 Subject: [PATCH] remove definition of number->string --- piclib/syntax-rules.scm | 9 --------- 1 file changed, 9 deletions(-) diff --git a/piclib/syntax-rules.scm b/piclib/syntax-rules.scm index f2171491..3a2c51dd 100644 --- 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))