rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

re: issue #118

Browse Source
This commit is contained in:
Mark Thom
2019-04-25 20:11:34 -06:00
parent b07a19fc47
commit 9b93c33491
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Cargo.toml
View File

@@ -1,6 +1,6 @@
[package] [package]
name = "scryer-prolog" name = "scryer-prolog"
version = "0.8.64" version = "0.8.65"
authors = ["Mark Thom <markjordanthom@gmail.com>"] authors = ["Mark Thom <markjordanthom@gmail.com>"]
repository = "https://github.com/mthom/scryer-prolog" repository = "https://github.com/mthom/scryer-prolog"
description = "A modern Prolog implementation written mostly in Rust." description = "A modern Prolog implementation written mostly in Rust."

2
src/prolog/lib/lists.pl
View File

@@ -13,7 +13,7 @@ length(Xs, N) :-
N >= 0, !, N >= 0, !,
'$skip_max_list'(M, N, Xs, Xs0), '$skip_max_list'(M, N, Xs, Xs0),
( Xs0 == [] -> N = M ( Xs0 == [] -> N = M
; var(Xs0) -> R is N-M, nl, length_rundown(Xs0, R)). ; var(Xs0) -> R is N-M, length_rundown(Xs0, R)).
length(_, N) :- length(_, N) :-
integer(N), !, integer(N), !,
throw(error(domain_error(not_less_than_zero, N), length/2)). throw(error(domain_error(not_less_than_zero, N), length/2)).