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

Merge branch 'mediants' into mediants

Browse Source
This commit is contained in:
notoria
2020-04-29 23:47:05 +02:00
committed by GitHub
parent b499c575bc a371580201
commit ccee17c573
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -31,7 +31,7 @@ msb_(X, M, N) :-
msb_(X1, M1, N). msb_(X1, M1, N).
number_to_rational(Real0, Fraction) :- number_to_rational(Real0, Fraction) :-
( var(Real) -> instantiation_error(number_to_rational/2) ( var(Real0) -> instantiation_error(number_to_rational/2)
; Real0 = R1/R2 -> ; Real0 = R1/R2 ->
( member(R, [R1, R2]), \+ number(R) -> ( member(R, [R1, R2]), \+ number(R) ->
type_error(number, R, number_to_rational/2) type_error(number, R, number_to_rational/2)