added H2.Slim and Slim_Stream.

renamed Stream to Wide_Stream.

lib/h2-scheme-bigint.adb

@@ -287,8 +287,8 @@ package body Bigint is
 	begin
 		if Is_Integer(A) and then Is_Integer(B) then
 			declare
-				pragma Unsuppress (Range_Check);
-				pragma Unsuppress (Overflow_Check);
+				--pragma Unsuppress (Range_Check);
+				--pragma Unsuppress (Overflow_Check);
 
 				G: Object_Integer := Pointer_To_Integer(A);
 				H: Object_Integer := Pointer_To_Integer(B);

lib/h2-scheme-execute.adb

@@ -570,7 +570,7 @@ procedure Execute (Interp: in out Interpreter_Record) is
 					--return;
 					raise IO_Error;
 			end;
-			if Interp.Input.Last < Interp.Input.Data'First then	
+			if Interp.Input.Last < Interp.Input.Data'First then
 				-- The callee must read 0 bytes on EOF 
 				Interp.Input.Flags := Interp.Input.Flags and IO_End_Reached;
 				Interp.Input.Iochar := (End_Character, Object_Character'First);

lib/h2-scheme.adb

@@ -1236,7 +1236,6 @@ end if;
 	end Make_Cons;
 
 	function Is_Cons (Source: in Object_Pointer) return Standard.Boolean is
-		pragma Inline (Is_Cons);
 	begin
 		return Is_Normal_Pointer(Source) and then 
 		       Source.Tag = Cons_Object;
@@ -1439,7 +1438,6 @@ end if;
 	end Make_Bigint;
 
 	function Is_Bigint (Source: in Object_Pointer) return Standard.Boolean is
-		pragma Inline (Is_Bigint);
 	begin
 		return Is_Normal_Pointer(Source) and then 
 		       Source.Tag = Bigint_Object;

lib/h2-scheme.ads

@@ -335,6 +335,8 @@ package H2.Scheme is
 	function Is_Cons (Source: in Object_Pointer) return Standard.Boolean;
 	function Is_Bigint (Source: in Object_Pointer) return Standard.Boolean;
 
+	pragma Inline (Is_Cons);
+	pragma Inline (Is_Bigint);
 	-- -----------------------------------------------------------------------------
 
 

lib/h2-slim.ads

@@ -0,0 +1,7 @@
+with H2.Scheme;
+
+package H2.Slim is
+
+	package Scheme is new H2.Scheme (Standard.Character);
+
+end H2.Slim;

lib/lib.gpr.in

@@ -19,6 +19,7 @@ project Lib is
 		"h2-scheme-execute-apply.adb",
 		"h2-scheme-execute-evaluate.adb",
 		"h2-scheme-token.adb",
+		"h2-slim.ads",
 		"h2-utf8.adb",
 		"h2-utf8.ads",
 		"h2-wide.ads"
@@ -28,6 +29,7 @@ project Lib is
 		"h2.ascii",
 		"h2.pool",
 		"h2.scheme",
+		"h2.slim",
 		"h2.utf8",
 		"h2.wide"
 	);