From 3f58566ac8fd27b5c5e8291d86b8d2f947e173ab Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Tue, 27 Oct 2015 23:05:21 +0000 Subject: [PATCH] syntax errors --- os/chartypes.yap | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/os/chartypes.yap b/os/chartypes.yap index d30a88b77..0d3a437b1 100644 --- a/os/chartypes.yap +++ b/os/chartypes.yap @@ -170,16 +170,16 @@ prolog:char_type( LOWER , lower) :- char_type_lower( LOWER ). prolog:char_type( LOWER, lower( Upper)) :- toupper( LOWER, Upper), - char_type_lower( LOWER ), -prolog:char_type( LOWER, to_lower( Upper)) + char_type_lower( LOWER ). +prolog:char_type( LOWER, to_lower( Upper)) :- toupper( LOWER, Upper). prolog:char_type( UPPER, upper ) :- char_type_upper( UPPER ). prolog:char_type( UPPER , upper( Lower)) :- - char_type_upper( UPPER ), + char_type_upper( UPPER ). +tolower( UPPER, Lower). prolog:char_type( UPPER, to_upper( Lower) ) :- - tolower( UPPER, Lower), - char_type_upper( UPPER). + tolower( UPPER, Lower). prolog:char_type( PUNCT , punct) :- char_type_punct( PUNCT ). prolog:char_type( SPACE , space) :- @@ -236,14 +236,16 @@ prolog:char_type( PROLOG_PROLOG_SYMBOL , prolog_prolog_symbol) :- code_type_lower( LOWER ). prolog:code_type( LOWER, lower( Upper)) :- toupper( LOWER, Upper), - code_type_lower( LOWER ), + code_type_lower( LOWER ). prolog:code_type( LOWER, to_lower( Upper)) toupper( LOWER, Upper). prolog:code_type( UPPER, upper ) :- code_type_upper( UPPER ). prolog:code_type( UPPER , upper( Lower)) :- - code_type_upper( UPPER ), - prolog:code_type( UPPER, to_upper( Lower) ) :- + code_type_upper( UPPER ). +prolog:code_type( UPPER, to_upp + + er( Lower) ) :- tolower( UPPER, Lower), char_type_upper( UPPER). prolog:code_type( PUNCT , punct) :-