Re: guile-vm 0.3

[Rob Browning]

Keisuke Nishida <address@hidden> writes:

> Okay, it's now ready, somehow:

That's great.

Though I'm having some trouble with current guile-core and guile-vm
from CVS.  I followed your instructions, but I get the error included
below.

> Probably it's a good idea to use my VM this way for the moment.
> Unfortunately, I'll be pretty busy during this month, so I'll do
> this work in May.  Do you want to wait, or hack my horrible code?

Not sure.  Let me see once I get it working, then we can figure out
what would be most helpful.

> My VM still lacks some important features, especially exception
> handling.  This must be implemented before it becomes ready for
> use.

So is it that the VM can't compile code that uses catch/throw, or that
byte-compiled code can't handle exceptions thrown to (or past) it?
The former would be OK, since we aren't using exceptions much in our
code right now.  The latter though, would as you suggest, have to be
fixed first.

Thanks

  $ LD_LIBRARY_PATH=/usr/local/opt/guile-cvs/lib 
PATH=/usr/local/opt/guile-cvs/bin:${PATH} guile-vm
Backtrace:
    ...
  42  (let ((didit #f)) (dynamic-wind (lambda () #) (lambda () #) ...) ...)
  43* [dynamic-wind #<procedure ()> #<procedure ()> #<procedure ()>]
  44* [#<procedure ()>]
  45* (let ((full #)) (if full (begin # #)))
  46  (if full (begin (save-module-excursion (lambda () #)) (set! didit #t)))
  47  (begin (save-module-excursion (lambda () #)) (set! didit #t))
  48* [save-module-excursion #<procedure ()>]
  49  (let (# #) (dynamic-wind # thunk #))
  50  [dynamic-wind #<procedure ()> #<procedure ()> #<procedure ()>]
  51* [#<procedure ()>]
  52* [primitive-load 
"/usr/local/opt/guile-cvs/share/guile/site/system/base/mod$
  53* (let ((module #)) (env-define (global-ref #) (quote module) ...) ...)
  54* [env-define ...
  55* [global-ref System::Base]
  56  (letrec ((loop #)) (loop *root-package* (identifier->list identifier)))
      ...
  57  [loop ...
  58* [env-ref #<<multi-package> 808bf10> System]
  59  [env-ref #<env 40385148> System]
      ...
  60  [apply #<primitive-procedure env-ref> (#<env 40385148> System)]
  61* [env-ref #<env 40385148> System]

  ERROR: In procedure env-ref:
  ERROR: Unbound variable in env: #<env 40385148>, System

-- 
Rob Browning <address@hidden> PGP=E80E0D04F521A094 532B97F5D64E3930