Select Code to Download

use Inline::Guile;
my $g = Inline::Guile.new;

say $g.run_i('(+ 3 7)'); # 10
say $g.run_s('"boo"'); # 'boo'

say $g.run('(+ 3 7)');
say $g.run('"boo"');

use Slang::Guile;

...

is car <a b c>, 'a';
is-deeply [ cdr <a b c> ], ['b', 'c'];

(3 "a" (7 9) "after") =>
( INTEGER, 3, STRING, "a", START-LIST, Nil, INTEGER, 7, INTEGER, 9, EN
+D-LIST, Nil, STRING, "after" )

is-deeply \$g.run(q{'(3 "a" (7 9) "after")}),
[ 3, "a", [ 7, 9 ], "after" ];