goof-loop/goof/helpers.scm
Linus 7ddb707bb7 Made it a module.
Put it in any directory, run guile -L . and then import (goof) in that directory.
2020-12-16 20:17:13 +01:00

13 lines
410 B
Scheme

(define-module (goof helpers)
#:export (define-aux-syntax define-aux-syntaxes))
(define-syntax define-aux-syntax
(lambda (stx)
(syntax-case stx ()
((_ name)
#'(define-syntax name
(lambda (stx)
(syntax-violation 'name "Loop clause used outside of loop macro" stx)))))))
(define-syntax-rule (define-aux-syntaxes name ...)
(begin
(define-aux-syntax name) ...))