From 5fab9b29d0cc5cadb5a3783534cfdb270b48a7b5 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 2 Mar 2019 12:28:52 -0800
Subject: compiler: use new load-for.

* share/txr/stdlib/compiler.tl: use load-for macro to
load the param module.
---
 share/txr/stdlib/compiler.tl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl
index ef79a418..cbd2b6ee 100644
--- a/share/txr/stdlib/compiler.tl
+++ b/share/txr/stdlib/compiler.tl
@@ -27,8 +27,7 @@
 (load "vm-param")
 
 (compile-only
-  (unless (find-struct-type 'sys:param-parser-base)
-    (load "param")))
+  (load-for (struct sys:param-parser-base "param")))
 
 (defstruct (frag oreg code : fvars ffuns) nil
   oreg
-- 
cgit v1.2.3