added Buffer_Record, Token_Record and related procedures

2014-01-02 16:28:18 +00:00
parent dd9a5a9a2e
commit a81a2230d0
3 changed files with 186 additions and 69 deletions
--- a/cmd/scheme.adb
+++ b/cmd/scheme.adb
@ -21,7 +21,7 @@ procedure scheme is
 	

 	--File_Name: aliased S.Object_String := "test.adb";
-	File_Name: aliased constant S.Object_String := "test.adb";
+	File_Name: aliased constant S.Object_String := "test.scm";
 	--File_Stream: Stream.File_Stream_Record (File_Name'Unchecked_Access);
 	--File_Stream: Stream.File_Stream_Record := (Name => File_Name'Unchecked_Access);
 	File_Stream: Stream.File_Stream_Record;