Great idea. I had been adding "(define tree-to-stree
tree->stree)" to my startup scheme libaries. Now I decided to
one up you and abstract it:
(define horrible-scheme-hack-fun
(lambda (some-symbol)
(string->symbol
(list->string
(map (lambda (char)
(if (equal? char #\} )
#\>
char))
(string->list (symbol->string some-symbol)))))))
Of course, you'll probalby just one up me back and make it a macro :)
Wanna toss something like this in the texmacs scheme libraries? then we could change yoru code to:
[[
<macro|inc0|<macro|x|<extern|
(lambda (x) (tree-load-inclusion ((horrible-scheme-hack
`tree-}stree) x)))|<arg|x>>>
]]
which would seem easier to read. The charactor could be something
other then }, let's just make a "hacking standard" so everyone uses the
same char till another solution presents it'self.
I'll let ya know how it goes as soon as I can try out your files/macros.
Corey