From 3e77151af0fa8303d5013ab7767f5822c9fcdce0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@xato.(none)>
Date: Tue, 15 Feb 2011 21:19:10 +0000
Subject: [PATCH] fix bad var.

---
 pl/chtypes.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pl/chtypes.yap b/pl/chtypes.yap
index 109565525..69d7f5dd9 100644
--- a/pl/chtypes.yap
+++ b/pl/chtypes.yap
@@ -106,7 +106,7 @@ char_type(A, Spec) :-
 	swi_char_type(A, Spec).
 
 code_type(Code, Spec) :-
-	swi_code_type(A, Spec).
+	swi_code_type(Code, Spec).
 	  
 
 downcase_atom(U, D) :-