Skip to content

Instantly share code, notes, and snippets.

@anttih

anttih/gist:920490

Created April 14, 2011 20:41
Show Gist options
  • Save anttih/920490 to your computer and use it in GitHub Desktop.
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
Copy link 

(define-syntax outer
  (syntax-rules ()
    ((_ (inner args ...)) 
     (call-with-inner (lambda (inner) (inner args ...))))))

@DerGuteMoritz
Copy link 

(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