Re: MzScheme--so long! (Re: guile-vm-0.1)

[Mikael Djurfeldt <mdj at mdj dot nada dot kth dot se>]

Mikael Djurfeldt <mdj@mdj.nada.kth.se> writes:

> I believe we have just beaten MzScheme.  :)

Ehrm... just a small detail:

diff -r guile-vm-0.1/src/vm_scm.c guile-vm-0.1.1/src/vm_scm.c
35a36,41
> SCM_DEFINE_INSTRUCTION (nullp, "null?", INST_NONE)
> {
>   ac = SCM_BOOL (SCM_NULLP (ac));
>   NEXT;
> }
> 
diff -r guile-vm-0.1/vm/Makefile.am guile-vm-0.1.1/vm/Makefile.am
13c13,14
< 	$(LN_S) $(libdir)/libguilevm.so $(vmdatadir)/libvm.so
---
> 	rm -f $(vmdatadir)/libvm.so \
> 	&& $(LN_S) $(libdir)/libguilevm.so $(vmdatadir)/libvm.so
Only in guile-vm-0.1.1/vm: Makefile.am~
diff -r guile-vm-0.1/vm/bytecomp.scm guile-vm-0.1.1/vm/bytecomp.scm
53a54
>     (,null? #f null? #f #f)
diff -r guile-vm-0.1/vm/compile.scm guile-vm-0.1.1/vm/compile.scm
246c246,247
< 	 (cons name (eval (symbol-append "parse-" name))))
---
> 	 (cons name (eval (symbol-append "parse-" name)
> 			  (interaction-environment))))
302c303,305
< 	 (cons (eval name) (eval (symbol-append "parse-" name))))
---
> 	 (cons (eval name (interaction-environment))
> 	       (eval (symbol-append "parse-" name)
> 		     (interaction-environment))))
diff -r guile-vm-0.1/vm/types.scm guile-vm-0.1.1/vm/types.scm
230c230
< 	(let ((obj (eval sym)))
---
> 	(let ((obj (eval sym (interaction-environment))))