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

Changed the error being thrown by sleep/1

Browse Source
This commit is contained in:
notoria
2020-04-20 11:27:28 +02:00
parent c9750fab2c
commit b3e31094ff
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/prolog/lib/time.pl
View File

@@ -9,17 +9,19 @@
'$cpu_new' can be replaced by statistics/2 once that is implemented. '$cpu_new' can be replaced by statistics/2 once that is implemented.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
:- module(time, [sleep/1, time/1]). :- module(time, [max_sleep_time/1, sleep/1, time/1]).
:- use_module(library(format)). :- use_module(library(format)).
:- use_module(library(iso_ext)). :- use_module(library(iso_ext)).
max_sleep_time(0xfffffffffffffbff).
sleep(T) :- sleep(T) :-
builtins:must_be_number(T, sleep), builtins:must_be_number(T, sleep),
( T < 0 -> ( T < 0 ->
throw(domain_error(not_less_than_zero, T)) throw(domain_error(not_less_than_zero, T))
; T > 0xfffffffffffffbff -> ; max_sleep_time(N), T > N ->
throw(domain_error(not_great_than_0xfffffffffffffbff, T)) throw(error(reprensentation_error(max_sleep_time), abolish/1))
; '$sleep'(T) ; '$sleep'(T)
). ).