diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix typo (obs from Bernd Gutmann)

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-01-26 22:27:00 +00:00
parent 74f3142499
commit 6700981b63
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/utils.yap
View File

@ -319,7 +319,7 @@ atom_concat(X,Y,At) :-
var(At) -> var(At) ->
'$do_error'(instantiation_error,atom_concat(X,Y,At)) '$do_error'(instantiation_error,atom_concat(X,Y,At))
; ;
'$do_error'(type_error(atom,At),atomic_concant(X,Y,At)) '$do_error'(type_error(atom,At),atomic_concat(X,Y,At))
). ).
'$atom_contact_split'(At,X,Y) :- '$atom_contact_split'(At,X,Y) :-
@ -360,7 +360,7 @@ atomic_concat(X,Y,At) :-
var(At) -> var(At) ->
'$do_error'(instantiation_error,atomic_concat(X,Y,At)) '$do_error'(instantiation_error,atomic_concat(X,Y,At))
; ;
'$do_error'(type_error(atomic,At),atomic_concant(X,Y,At)) '$do_error'(type_error(atomic,At),atomic_concat(X,Y,At))
). ).
'$number_contact_split'(At,X,Y) :- '$number_contact_split'(At,X,Y) :-