hyung-hwan/hak
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added H2.Slim and Slim_Stream.

Browse Source 
renamed Stream to Wide_Stream.
This commit is contained in:
hyung-hwan
2014-03-26 14:28:41 +00:00
parent ed0835caae
commit 8ef3eabe78
12 changed files with 235 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/h2-scheme.adb
View File

@ -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;