Commit e925bc38 authored by Juergen Nickelsen's avatar Juergen Nickelsen
Browse files

some variable cleanup

parent 7197136d
......@@ -21,7 +21,7 @@ BEGIN {
$t_Function $opt_stacktraces
ftrace $andOptional $Kappa
$the_environment $n_the_environment $n_Environment
$n_parentenv $Env $root_Env
$n_parentenv $Env
stacktrace $n_root_environment $root_environment
$n_environment_level $n_env_name
);
......@@ -34,12 +34,11 @@ our $andRest; # the &rest token symbol
our $andOptional; # the &optional token symbol
our $Lambda; # the lambda symbol
our $Kappa; # the kappa symbol
our $Princs; # the printer function
our $special;
our $builtin;
our $function;
our $the_environment;
our $root_environment;
our $the_environment; # symbol *the-environment*
our $root_environment; # symbol *root-environment*
# object types, all Symbols
our $t_Symbol;
......@@ -67,13 +66,11 @@ our $n_parentenv = '*parent-environment*';
our $Env; # the real environment, value of
# *the-environment*
our $root_Env; # the mother of all environments
our $Quote = 'quote';
our $Leval = sub {};
our $Princs; # the printer function
our $opt_stacktraces = 0;
our $opt_stacktraces = 0; # print stacktraces with errors
sub error {
my ($msg, @data) = @_;
......
......@@ -89,7 +89,7 @@ load("Fundamental.lisp", 0, $opt_quiet) or exit(1);
my $loadfile_arg = shift(@ARGV) // '';
# remaining args are *ARGS* for the application
defvar(intern($n_ARGS), array2list(@ARGV));
set(intern($n_ARGS), array2list(@ARGV));
if ($loadfile_arg) {
my $v = load($loadfile_arg);
......@@ -116,6 +116,7 @@ usage: Lis.pl [-hq] [-e expression] [-l loadfile] [file] [arg0 ...]
-i: run interactively even with -e or file arguments
-l: load file before starting repl
-q: be quiet (and non-interactive in general)
-s: show Perl stacktraces with errors
EOU
exit($status);
}
......
......@@ -30,6 +30,7 @@ BEGIN {
my %symbols = ();
my $cons_counter = 0;
my $root_Env;
# types of sexprs:
# - literal string or number
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment