gistfile1.txt

(define-syntax constexpr
  (syntax-rules ()
    ((_ expr)
     (begin
       (syntax->datum
        (datum->syntax
         (quote-syntax here)
         (eval 'expr (interaction-environment))))))))
         
(define (factorial n)
  (if (<= n 1)
      1
      (* n (factorial (- n 1)))))
         
(define n
    (constexpr (factorial 10)))

(define-syntax define-curried
    (syntax-rules ()
      ((_ (f . a) body ...)
       (define f (curry (lambda a (begin body ...)))))))

(define-curried (add a b)
  (+ a b))

((add 1) 2)

(define-syntax-rule (delay) 
    (lambda ( )  expr))