patch for `(load "foo.js")'

[Matt Wette]

30094 @ debbugs got gnu dot org has a patch for adding support for extension languages

The patch is against guile-2.2.4


mwette$ cat jsinc
#lang ecmascript

function js_inc(a) {
return a + 1;
}


mwette$ cat jsdec.js

function js_dec(a) {
return a - 1;
}


mwette$ guile
GNU Guile 2.2.4
Copyright (C) 1995-2017 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.

scheme@(guile-user)> (load "jsinc")
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /var/tmp/jsinc
;;; compiled /home/mwette/.cache/guile/ccache/2.2-LE-8-3.A/var/tmp/jsinc.go

scheme@(guile-user)> (load "jsdec.js")
;;; compiling /var/tmp/jsdec.js
;;; compiled /home/mwette/.cache/guile/ccache/2.2-LE-8-3.A/var/tmp/jsdec.js.go

scheme@(guile-user)> (js_inc 4)
$1 = 5

scheme@(guile-user)> (js_dec 9)
$2 = 8

scheme@(guile-user)>