cols function

This commit is contained in:
Brieuc Dubois 2024-03-02 09:38:48 +01:00
parent 960c362703
commit 56e393f049
1 changed files with 3 additions and 1 deletions

View File

@ -31,7 +31,9 @@ order as they were supplied to create table/2).
If the given table does not exist, the predicate must throw a descriptive
exception (use throw/1).
*/
/* cols(Table, Cols). */
cols(Table, Cols) :-
(tabl(Table, _) -> tabl(Table, Cols));
throw("Table doesn't exist").
:- dynamic row/2.
/*