You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
423 B
16 lines
423 B
(define-module (tk short)
|
|
#:export (ss> ss<
|
|
ssa>)
|
|
#:duplicates (warn-override-core warn))
|
|
|
|
(define ss> string->symbol)
|
|
(define ss< symbol->string)
|
|
|
|
;; Wraps up the common (string->symbol (string-append ...)) form
|
|
(define-syntax ssa>
|
|
(syntax-rules ()
|
|
((ssa> $string . $strings)
|
|
(ss> (string-append $string . $strings)))
|
|
((ssa>)
|
|
(syntax-error "ssa> needs at least one string argument"))))
|