[RFC 03/14] Remove bound-symbol?

[Tom Tromey]

bound-symbol? is not used, remove it.
---
 utils.scm | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/utils.scm b/utils.scm
index 330880b..616065b 100644
--- a/utils.scm
+++ b/utils.scm
@@ -465,19 +465,6 @@
 		(backslash chars (cdr str)))))
 )
 
-; Return a boolean indicating if S is bound to a value.
-;(define old-symbol-bound? symbol-bound?)
-;(define (symbol-bound? s) (old-symbol-bound? #f s))
-
-; Return a boolean indicating if S is a symbol and is bound to a value.
-
-(define (bound-symbol? s)
-  (and (symbol? s)
-       (or (symbol-bound? #f s)
-	   ;(module-bound? cgen-module s)
-	   ))
-)
-
 ; Return X.
 
 (define (identity x) x)
-- 
2.41.0