diff options
author | dos-reis <gdr@axiomatics.org> | 2010-06-20 15:00:29 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-06-20 15:00:29 +0000 |
commit | 9cde874de258533a18944602afa62c9e56ac991a (patch) | |
tree | 0ba1cbbf0a13d8d5085aa411304ff34ca63e7bb0 /src/algebra/strap/QFCAT-.lsp | |
parent | 4ee9e8c9ec410567f7904da3e3be59c06f059a6c (diff) | |
download | open-axiom-9cde874de258533a18944602afa62c9e56ac991a.tar.gz |
* interp/compiler.boot (massageLoop): New.
(compRepeatOrCollect): Use it to generate appropriate %loop forms.
Bind new special variable $mayHaveFreeIteratorVariables.
(complainIfShadowing): Set it as appropriate.
Diffstat (limited to 'src/algebra/strap/QFCAT-.lsp')
-rw-r--r-- | src/algebra/strap/QFCAT-.lsp | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/src/algebra/strap/QFCAT-.lsp b/src/algebra/strap/QFCAT-.lsp index 2a1f2d4d..de5cddb0 100644 --- a/src/algebra/strap/QFCAT-.lsp +++ b/src/algebra/strap/QFCAT-.lsp @@ -270,15 +270,14 @@ (DEFUN |QFCAT-;random;A;26| ($) (PROG (|d|) (RETURN - (SEQ (SEQ G190 - (COND - ((NULL (SPADCALL - (LETT |d| - (SPADCALL (|getShellEntry| $ 97)) - |QFCAT-;random;A;26|) - (|getShellEntry| $ 98))) - (GO G191))) - (SEQ (EXIT |d|)) NIL (GO G190) G191 (EXIT NIL)) + (SEQ (LOOP + (COND + ((NOT (SPADCALL + (LETT |d| (SPADCALL (|getShellEntry| $ 97)) + |QFCAT-;random;A;26|) + (|getShellEntry| $ 98))) + (RETURN NIL)) + (T |d|))) (EXIT (SPADCALL (SPADCALL (|getShellEntry| $ 97)) |d| (|getShellEntry| $ 15))))))) |