diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 417a3c46..f0e83839 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -26,8 +26,6 @@ (load "vm-param") -(defvarl assumed-fun) - (defstruct (frag oreg code : fvars ffuns) nil oreg code @@ -231,6 +229,8 @@ (defvarl %bin-op% (relate %nary-ops% %bin-ops%)) +(defvarl assumed-fun) + (defmeth compiler get-dreg (me atom) (condlet ((((null atom))) '(t 0)) |