From c9d60bd84e0a77407b0f88326268c92aaeebd9d2 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 12 Mar 2018 19:56:29 -0700 Subject: genvmop: fix broken script. This broke when I moved asm.tl into the library directory and set it up for auto-load. * genvmop.txr: We must not include "asm" any more. But then there is no auto-load on any other feature of the assembler other than the class name. The @(mdo) directive comes in handy; at expansion time we can trigger auto-load by doing a lookup on the sys:assembler struct name. --- genvmop.txr | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'genvmop.txr') diff --git a/genvmop.txr b/genvmop.txr index 31c6062a..3149e4b8 100644 --- a/genvmop.txr +++ b/genvmop.txr @@ -1,5 +1,5 @@ -@(include "asm") @(in-package :sys) +@(mdo (find-struct-type 'assembler)) @(bind oc @(keep-if .code %oc-list%)) @(next "vm.h") @(collect) -- cgit v1.2.3