kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-11-10 12:47:45 +03:00
Code Issues Projects Releases Wiki Activity

Ada: change *ARGV* and *host-language* to strings

Browse Source
This commit is contained in:
Chris M Moore 2016-03-25 13:24:57 +00:00
parent 7ae2311528
commit 9c38eb6d4b
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ada/core.adb
View File

@ -974,7 +974,7 @@ package body Core is
procedure Init (Repl_Env : Envs.Env_Handle) is
begin
Envs.Set (Repl_Env, "*host-language*", Types.New_Symbol_Mal_Type ("ada"));
Envs.Set (Repl_Env, "*host-language*", Types.New_String_Mal_Type ("ada"));
Envs.Set (Repl_Env,
"true?",

2
ada/step6_file.adb
View File

@ -377,7 +377,7 @@ begin
File_Processed := True;
else
Command_List.Append
(Types.New_Symbol_Mal_Type (Ada.Command_Line.Argument (Cmd_Args)));
(Types.New_String_Mal_Type (Ada.Command_Line.Argument (Cmd_Args)));
end if;
end loop;

2
ada/step7_quote.adb
View File

@ -467,7 +467,7 @@ begin
File_Processed := True;
else
Command_List.Append
(Types.New_Symbol_Mal_Type (Ada.Command_Line.Argument (Cmd_Args)));
(Types.New_String_Mal_Type (Ada.Command_Line.Argument (Cmd_Args)));
end if;
end loop;

2
ada/step8_macros.adb
View File

@ -542,7 +542,7 @@ begin
File_Processed := True;
else
Command_List.Append
(Types.New_Symbol_Mal_Type (Ada.Command_Line.Argument (Cmd_Args)));
(Types.New_String_Mal_Type (Ada.Command_Line.Argument (Cmd_Args)));
end if;
end loop;

2
ada/step9_try.adb
View File

@ -592,7 +592,7 @@ begin
File_Processed := True;
else
Command_List.Append
(Types.New_Symbol_Mal_Type (Ada.Command_Line.Argument (Cmd_Args)));
(Types.New_String_Mal_Type (Ada.Command_Line.Argument (Cmd_Args)));
end if;
end loop;

2
ada/stepa_mal.adb
View File

@ -597,7 +597,7 @@ begin
File_Processed := True;
else
Command_List.Append
(Types.New_Symbol_Mal_Type (Ada.Command_Line.Argument (Cmd_Args)));
(Types.New_String_Mal_Type (Ada.Command_Line.Argument (Cmd_Args)));
end if;
end loop;