~ chicken-core (chicken-5) 0a2b412cf7f1e1b7995f01ce56606a2278fab470

commit 0a2b412cf7f1e1b7995f01ce56606a2278fab470
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Apr 7 11:45:44 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Apr 7 11:45:44 2012 +0200

    removed obsolete function

diff --git a/support.scm b/support.scm
index 3ee317ab..9a298b34 100644
--- a/support.scm
+++ b/support.scm
@@ -1467,9 +1467,6 @@
 
 ;;; constant folding support:
 
-(define (string-null? x) 
-  (##core#inline "C_i_string_null_p" s))
-
 (define (constant-form-eval op argnodes k)
   (let* ((args (map (lambda (n) (first (node-parameters n))) argnodes))
 	 (form (cons op (map (lambda (arg) `(quote ,arg)) args))))