anttih/gist:920490

Created April 14, 2011 20:41

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/anttih/920490.js"></script>
Save anttih/920490 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

gistfile1.sls


	(context
	(lambda (test)
	(test "hello")))

	;; I would like this to transform to the above
	(group
	(test "hello"))

DerGuteMoritz commented Apr 14, 2011

(define-syntax outer
  (syntax-rules ()
    ((_ (i1 a1 ...) (i2 a2 ...) ...)
     (call-with-inner 
      (lambda (i1 i2 ...) 
        (i1 a1 ...)
        (i2 a2 ...)
        ...)))))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment