char *init_scheme_string = 
"\n"
"\n"
"\n"
"\n"
"\n"
"(if gwave-debug\n"
"      (begin\n"
"	(display \"in minimal.scm\") (newline)))\n"
"\n"
"(debug-enable \'debug)\n"
"(read-enable \'positions)\n"
"\n"
"(define startup-error-flag #f)\n"
"(add-hook! \n"
" error-hook\n"
" (lambda (a b c d e)\n"
"   (set! startup-error-flag #t)))\n"
"\n"
"\n"
"(define (dbprint . l)\n"
"  (if gwave-debug\n"
"      (for-each (lambda (e) (display e (current-output-port))) l)))\n"
"\n"
"\n"
"(if (not (defined? \'run-hook))\n"
"    (define-public (run-hook hook-list . args)\n"
"      \"Runs the procedures in HOOK-LIST, each getting ARGS as their arguments.\n"
"If any error, the others still run.  The procedures are executed in the\n"
"order in which they appear in HOOK-LIST\"\n"
"      (for-each (lambda (p) \n"
"		  (catch #t\n"
"			 (lambda () (apply p args))\n"
"			 (lambda args\n"
"			   (display \"Error running hook: \")\n"
"			   (write p)\n"
"			   (newline))))\n"
"		hook-list)))\n"
"\n"
"\n"
"(if (not (defined? \'reset-hook!))\n"
"    (defmacro-public reset-hook! (hook)\n"
"      `(set! ,hook ())))\n"
"\n"
"(if (not (defined? \'make-hook))\n"
"    (begin\n"
"      \n"
"      (define-public (make-hook . n) ())\n"
"      (define-public hook? list?))\n"
"    \n"
"    (define-public (hook? h) \n"
"      (and (pair? h) (eq? (car h) \'hook))))\n"
"\n"
"\n"
"\n"
"\n"
"(let* ((genv (getenv \"GWAVE_GUILE_DIR\"))\n"
"       (gwave-guiledir (if genv\n"
"			   genv\n"
"			   (string-append gwave-datadir \"/guile\"))))\n"
"  (set! %load-path (cons gwave-guiledir %load-path)))\n"
"\n"
"(dbprint \"%load-path=\" %load-path \"\n\")\n"
"\n"
"\n"
"(load-from-path \"app/gwave/gwave-startup.scm\")\n"
"\n"
"(dbprint \"minimal.scm load done flag=\" startup-error-flag \"\n\")\n"
"\n"
"\n"
"\n"
"(if startup-error-flag\n"
"    (begin\n"
"      (display \"gwave: Error(s) in gwave-startup.scm or other startup files\n\")\n"
"      (display \"gwave: %load-path was \")(display %load-path)(newline)\n"
"      #f)\n"
"    #t)\n"

;