summaryrefslogtreecommitdiffstats
path: root/genvim.txr
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2014-03-08 09:49:12 -0800
committerKaz Kylheku <kaz@kylheku.com>2014-03-08 09:49:12 -0800
commit61aa8e0cfc6c1483ad7d71cfa15df7aae926df48 (patch)
treee11250fe821bc9e145652e4f215a72bf1985a392 /genvim.txr
parentcb0733010a74f55e9a9dc283ab439e5f19284ca4 (diff)
downloadtxr-61aa8e0cfc6c1483ad7d71cfa15df7aae926df48.tar.gz
txr-61aa8e0cfc6c1483ad7d71cfa15df7aae926df48.tar.bz2
txr-61aa8e0cfc6c1483ad7d71cfa15df7aae926df48.zip
* genvim.txr: Handle variable definition without embedded intern.
Diffstat (limited to 'genvim.txr')
-rw-r--r--genvim.txr3
1 files changed, 3 insertions, 0 deletions
diff --git a/genvim.txr b/genvim.txr
index b9d6b816..d443439d 100644
--- a/genvim.txr
+++ b/genvim.txr
@@ -25,6 +25,9 @@ static void dir_tables_init(void)
@ (or)
reg_fun(@{txl-sym}_s,@(skip)
@ (or)
+ reg_var(@{txl-sym-special}_s,@(skip)
+@ (bind txl-sym `*@{txl-sym-special}*`)
+@ (or)
@/ */reg_var(@(skip)intern(lit("@{txl-sym}")@(skip)
@ (end)
@ (set txl-sym @(regsub #/_/ #\- txl-sym))