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.

1 files changed, 1 insertions, 1 deletions

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)