PasteRack.org
Paste # 79212
2016-07-26 11:46:33

Forked from paste # 15618.

Fork as a new paste.

Paste viewed 431 times.


Embed:

macro generated set!

  1. #lang racket
  2. ;there is no built-in way to set! append in racket
  3. (define mystr "foo")
  4. (set! mystr (string-append mystr " bar"))
  5. (displayln mystr)
  6.  
  7. ;but you can create a quick macro to solve that problem
  8. (define-syntax-rule (set-append! str value)
  9.   (set! str (string-append str value)))
  10.  
  11. (define mymacrostr "foo")
  12. (set-append! mymacrostr " bar")
  13. (displayln mymacrostr)

=>

foo bar

foo bar