;;; Code

(import (scheme write))
(import (srfi 13))
(import (only (chicken string) ->string))

(display
 (string-append
  "Self-test: (string-null? \"\") => " (->string (string-null? "")) "\n"))

;;; Results

Compiled with csc -sJ -fixnum-arithmetic -optimize-leaf-routines -local -inline -lfa2 -inline-global -specialize -d1 minimal.scm:

Self-test: (string-null? "") => #f

Compiled with csc -fixnum-arithmetic -optimize-leaf-routines -local -inline -lfa2 -inline-global -d1 minimal.scm:

Self-test: (string-null? "") => #t