fix retry_head to work correctly if the argument is dereferenced.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@638 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-10-17 00:48:52 +00:00 · 2002-10-17 00:48:52 +00:00 · 4a71cbda80
commit 4a71cbda80
parent 153b2cb2a3
1 changed files with 1 additions and 1 deletions
--- a/C/absmi.c
+++ b/C/absmi.c
@ -6508,8 +6508,8 @@ absmi(int inp)
      d0 = ARG1;
      /* deref it first */
      deref_head(d0,retry_tail_unk);
-      PREG = (yamop *) (PREG->u.ld.d);
    retry_tail_nvar:
+      PREG = (yamop *) (PREG->u.ld.d);
      if (IsPairTerm(d0)) {
 	/* pair */
 	SREG = RepPair(d0)+1;