~ chicken-core (chicken-5) 28421e8baf81270c513e4f752407fa9e281948f5

commit 28421e8baf81270c513e4f752407fa9e281948f5
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Mon May 6 16:22:37 2019 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Mon May 6 16:26:14 2019 +0200

    Remove unused stringify and symbolify procedures from compiler support module

diff --git a/support.scm b/support.scm
index 734ff407..a81894d3 100644
--- a/support.scm
+++ b/support.scm
@@ -32,9 +32,8 @@
 (module chicken.compiler.support
     (compiler-cleanup-hook bomb collected-debugging-output debugging
      debugging-chicken with-debugging-output quit-compiling
-     emit-syntax-trace-info check-signature stringify symbolify
-     build-lambda-list c-ify-string valid-c-identifier?
-     read-expressions
+     emit-syntax-trace-info check-signature build-lambda-list
+     c-ify-string valid-c-identifier? read-expressions
      bytes->words words->bytes
      check-and-open-input-file close-checked-input-file fold-inner
      constant? collapsable-literal? immediate? basic-literal?
@@ -221,16 +220,6 @@
 
 ;;; Generic utility routines:
 
-(define (stringify x)
-  (cond ((string? x) x)
-	((symbol? x) (symbol->string x))
-	(else (sprintf "~a" x)) ) )
-
-(define (symbolify x)
-  (cond ((symbol? x) x)
-	((string? x) (string->symbol x))
-	(else (string->symbol (sprintf "~a" x))) ) )
-
 (define (build-lambda-list vars argc rest)
   (let loop ((vars vars) (n argc))
     (cond ((or (zero? n) (null? vars)) (or rest '()))