-emacs flag

Looks like some helpful emacs hacker "improved" scheme mode so that
run-scheme now passes a -emacs flag:

Invalid argument: -emacs
Usage: /usr/local/lib/scheme48-1.9.2/scheme48vm [options] [-a arguments]
Options: -h <heap-size>    Maximum heap size in words (default 4000000).
                           A heap size of 0 means the heap can grow
                           unboundedly. This is dangerous because it can
                           cause your system to run out of memory.
     -s <stack-size>   Stack buffer size in words.
         -i <file>         Load image from file (default "scheme48.image")

I guess the easiest fix is for scheme48 to accept the flag and ignore it.

Maybe there's a way to fix it in the cmscheme48 code.

It's a scheme48 bug, of sorts, because it's not as clear now how to use
cmuscheme48 (which is included in the distribution) - I can work around
it with a tiny script, but you can't simply set scheme-program-name and
go from there any more.

This is with scheme48 1.9.2 on pureos and an emacs init file containing

(load-file "/usr/local/src/scheme48-1.9.2/emacs/cmuscheme48.elc")
(setq scheme-program-name "scheme48")

Jonathan