;; GUILE_AUTO_COMPILE=0 guile -s compile-error.scm
(define code '(lambda ()
                (define a (string #\x #\y))
                (define b (substring/shared a 0 1))
                (string-ref b 0)))
(define compiled (compile code))
(define interped (eval code (interaction-environment)))
(write (equal? (compiled) (interped))) ;; #\nul vs #\x
(newline)