Welcome to the CHICKEN Scheme pasting service

decf added by russellw on Mon May 30 08:58:12 2016

; (decf! struct-field c)
; (struct-field-set! x (- (struct-field x) 1))
(define-syntax decf!
 (syntax-rules ()
  ((_ x field)
   (decf! x field 1))
  ((_ x field delta)
   (,(string->symbol (conc (field "-set!"))) x (- (field x) delta)))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the one-argument procedure to check if a list is empty?
Visually impaired? Let me spell it for you (wav file) download WAV