5 # Make sure that code passed as `-c' or `-l' is evaluted using the
8 # The default language in effect until `--language' is encountered is
10 guile
-c "(exit (= 3 (apply + '(1 2))))" --language=elisp
12 if guile
-c "(= (funcall (symbol-function '+) 1 2) 3)" 2> /dev
/null
13 then false
; else true
; fi
15 guile
--language=elisp
-c "(= (funcall (symbol-function '+) 1 2) 3)"
16 guile
--language=ecmascript
-c '(function (x) { return x * x; })(2);'
19 guile
--no-auto-compile -l "$top_srcdir/module/ice-9/q.scm" -c 1
20 guile
--no-auto-compile \
21 -l "$top_srcdir/module/ice-9/q.scm" \
23 -l "$srcdir/test-language.el" \
24 --language=ecmascript \
25 -l "$srcdir/test-language.js" \