duskos

commit 6e17bd050dfcc8ab4dd0b48dc6c19a54098809a6
parent 1f28be423fb7b75911a6c39e2fc37dec15cfcff4
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Tue,  2 Aug 2022 17:58:46 -0400

Simplify "chain" with "to@!"

Diffstat:
M
fs/xcomp/bootlo.fs
 | 
3
+--

1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/fs/xcomp/bootlo.fs b/fs/xcomp/bootlo.fs
@@ -101,8 +101,7 @@ alias else endof immediate
 
 \ Alias chaining. See doc/usage.
 : _ ( 'target 'alias -- )
-  dup to@ execute ( 'tgt 'alias 'prevtgt )
-  swap here swap to execute ( 'tgt 'prevtgt )
+  here swap to@! execute ( 'tgt 'prevtgt )
   litn execute, exit, ;
 : chain
   ' ' ( 'alias 'target ) compiling if