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

Fix char_code/2 predicate failure instead of exception on non-integer second argument

Browse Source
This commit is contained in:
Paulo Moura
2021-05-10 00:37:09 +01:00
parent 9b483d381f
commit 63db194140
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/lib/builtins.pl
View File

@@ -1293,7 +1293,12 @@ char_code(Char, Code) :-
; throw(error(type_error(integer, Code), char_code/2)) ; throw(error(type_error(integer, Code), char_code/2))
) )
; atom_length(Char, 1) -> ; atom_length(Char, 1) ->
( var(Code) ->
'$char_code'(Char, Code) '$char_code'(Char, Code)
; integer(Code) ->
'$char_code'(Char, Code)
; throw(error(type_error(integer, Code), char_code/2))
)
; throw(error(type_error(character, Char), char_code/2)) ; throw(error(type_error(character, Char), char_code/2))
). ).