PasteRack.org
Paste # 86467
2014-10-24 14:40:26

Fork as a new paste.

Paste viewed 16 times.


Embed:

  1. #lang racket
  2.  
  3. (module m racket
  4.   (provide my-define)
  5.   (require (for-syntax racket/syntax))
  6.   (define-syntax (my-define stx)
  7.     (syntax-case stx ()
  8.       [(_ my-id expr)
  9.        (identifier? #'my-id)
  10.        (with-syntax ([new-id (format-id #'my-id "#%~a" #'my-id)])
  11.          #'(define new-id expr))]))
  12.   )
  13.  
  14. (require 'm)
  15. (my-define fire (expt 2 34))
  16.  
  17. (display #%fire)

=>

17179869184