diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-12-13 19:57:39 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-12-13 19:57:39 -0800 |
| commit | ed3b186632459b3b6ca0e26fdae81329e0959729 (patch) | |
| tree | fcafce6a912a36947c20b89a841ae9935a3c5b26 | |
| parent | c547316cbfa514fd793a147c6f2e5aa5d5e0e283 (diff) | |
| download | txr-ed3b186632459b3b6ca0e26fdae81329e0959729.tar.gz txr-ed3b186632459b3b6ca0e26fdae81329e0959729.tar.bz2 txr-ed3b186632459b3b6ca0e26fdae81329e0959729.zip | |
compiler: move variable down in file.
* share/txr/stdlib/compiler.tl (assumed-fun): This variable
shouldn't be the first item in the compiler. It is moved after
the definitions of structs and important constants.
| -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)) |