starting repl from C broken

[Tristan Colgate]

Hi,

The folliowing fails for me on current master:

#include <libguile.h>

static void
inner_main (void *closure, int argc, char **argv)
{
  scm_c_use_module("system repl repl");
  scm_c_eval_string("(start-repl)");
}

int
main (int argc, char **argv)
{
  scm_boot_guile (argc, argv, inner_main, 0);
  return 0; /* never reached */
}

I get:

Backtrace:
In ice-9/boot-9.scm:
 162: 14 [catch #t #<catch-closure ed3680> ...]
 170: 13 [#<procedure e8f6e0 ()>]
In unknown file:
   ?: 12 [catch-closure]
   ?: 11 [call-with-input-string "(start-repl)" ...]
In ice-9/boot-9.scm:
2082: 10 [save-module-excursion #<procedure 11cf240 at
ice-9/eval-string.scm:65:9 ()>]
In ice-9/eval-string.scm:
  44: 9 [read-and-eval #<input: string ce2680> #:lang ...]
  37: 8 [lp (start-repl)]
In system/repl/repl.scm:
 135: 7 [start-repl # # #f]
In system/repl/common.scm:
 135: 6 [make-repl # #f]
In system/base/language.scm:
  58: 5 [lookup-language #]
In ice-9/boot-9.scm:
2476: 4 [#<procedure e832a0 at ice-9/boot-9.scm:2464:4 (name
#:optional autoload version #:key ensure)> # ...]
2733: 3 [try-module-autoload (language # spec) #f]
 550: 2 [map #<procedure e86a20 at ice-9/boot-9.scm:2733:31 (elt)> (language #)]
2734: 1 [#<procedure e86a20 at ice-9/boot-9.scm:2733:31 (elt)> #]
In unknown file:
   ?: 0 [symbol->string #]

ERROR: In procedure symbol->string:
ERROR: In procedure symbol->string: Wrong type argument in position 1
(expecting symbol): #<<language> name: scheme title: Scheme reader:
#<procedure 104a020 at language/scheme/spec.scm:34:16 (port env)>
printer: #<procedure write (_ #:optional _)> parser: #f compilers:
((tree-il . #<procedure compile-tree-il (x e opts)>)) decompilers:
((tree-il . #<procedure decompile-tree-il (x env opts)>)) evaluator:
#<procedure 1050dc0 at language/scheme/spec.scm:45:16 (x module)>
joiner: #f make-default-environment: #<procedure 1050d40 at
language/scheme/spec.scm:48:16 ()>>

Some code along these lines has been working OK on 2.0+ for a while,
not quite sure when it broke.

-- 
Tristan Colgate-McFarlane
----
  "You can get all your daily vitamins from 52 pints of guiness, and a
glass of milk"