From ed3b186632459b3b6ca0e26fdae81329e0959729 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 13 Dec 2018 19:57:39 -0800
Subject: 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.
---
 share/txr/stdlib/compiler.tl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'share')

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))
-- 
cgit v1.2.3