summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2018-12-13 19:57:39 -0800
committerKaz Kylheku <kaz@kylheku.com>2018-12-13 19:57:39 -0800
commit789444d9a6f7c23dcf1388e6da0cf28b1b92df33 (patch)
treefcafce6a912a36947c20b89a841ae9935a3c5b26
parentdae9271da2babb8879c03946f106c64f2538ceb8 (diff)
downloadtxr-789444d9a6f7c23dcf1388e6da0cf28b1b92df33.tar.gz
txr-789444d9a6f7c23dcf1388e6da0cf28b1b92df33.tar.bz2
txr-789444d9a6f7c23dcf1388e6da0cf28b1b92df33.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.tl4
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))