extra array functionality
fix YAPOr compilation. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@708 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -65,3 +65,17 @@ array(Size, Obj) :-
|
||||
'$add_array_entries'(Tail, G, NG).
|
||||
|
||||
|
||||
static_array_properties(Name, Size, Type) :-
|
||||
atom(Name), !,
|
||||
'$static_array_properties'(Name, Size, Type).
|
||||
static_array_properties(Name, Size, Type) :-
|
||||
var(Name), !,
|
||||
current_atom(Name),
|
||||
'$static_array_properties'(Name, Size, Type).
|
||||
static_array_properties(Name, Size, Type) :-
|
||||
'$do_error'(type_error(atom,Name),static_array_properties(Name,Size,Type)).
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user