From 05bfe8a15b1dd8ed0ae203af4a0a81cc8e61d454 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Mon, 9 Dec 2013 22:14:17 +0000
Subject: [PATCH] fix number_codes/2 typo

---
 C/atomic.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/atomic.c b/C/atomic.c
index 18765c3b9..473bf8833 100644
--- a/C/atomic.c
+++ b/C/atomic.c
@@ -434,7 +434,7 @@ p_number_codes( USES_REGS1 )
     Term   t = Deref(ARG2);
     Term tf = Yap_ListToNumber(t PASS_REGS);
     if (tf)
-      return Yap_unify( ARG2, tf );
+      return Yap_unify( ARG1, tf );
   }
   /* error handling */
   if (LOCAL_Error_TYPE && Yap_HandleError( "number_codes/2" )) {