[RFC 03/14] Remove bound-symbol?

[Jose E. Marchesi]

OK.  Thanks.

> 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)