diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/optimize.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/optimize.tl b/share/txr/stdlib/optimize.tl index 537d064c..c06c5d22 100644 --- a/share/txr/stdlib/optimize.tl +++ b/share/txr/stdlib/optimize.tl @@ -130,13 +130,13 @@ (((mov @reg0 @reg1) (mov reg1 @reg0) . @rest) ^(,(car insns) ,*rest)) ;; frame reduction - (((frame @lev @size) + (((@(or frame dframe) @lev @size) (@(or call gcall mov) . @(require @(coll (v @vlev @nil)) (none vlev (op eql (ppred lev))))) . @rest) ^(,(cadr insns) ,(car insns) ,*rest)) - (((frame . @nil) + (((@(or frame dframe) . @nil) (if (t @reg) @jlabel) . @rest) (let ((jinsns [bb.hash jlabel])) (match-case jinsns |